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Preface 


These programs are intended for the computer hobbyist or user who 
has access to а computer system with standard BASIC language 
available. 

The various programs are written in such а manner that they 
will operate even with а simplified subset of full BASIC. The ad- 
vanced programmer, with full BASIC available, can easily modify the 
programs to take advantage of the functions and capabilities of the 
full instruction set. 

The programs were chosen not just for their intrinsic qualities, 
but also for their role as teaching aids. 

I would like to take this opportunity to thank the following 
people who helped to make this book possible. Alec Grynspan, who 
supplied the Bubble-Sort program; Tom McRoberts, who was able 
to read my notes and typed the manuscript; Laura Semple, who 
drew the final drafts of the flow charts; Jane, who said programming 
is simple; and David, who named my Iguana. 

I would like to extend a special thank you to Construction Data 
Systems, who allowed me access to their time-sharing facility on an 
IBM 370-158 computer systems. 


Ken Tracton 
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BASIG STATEMENTS 


BASIC (Beginners' All-purpose Symbolic Instruction Code) 
was invented and developed between 1963 and 1964 by John 
Kemeny and Thomas Kurtz of Dartmouth College. Since its first use 
in 1964, BASIC has steadily gained popularity as a high-level compu- 
ter language which the user can easily master. The essential vo- 


cabulary is below: 


Statement Example 


CHANGE CHANGE N$ TO N 


DATA DATA 15, -8. 76,... 

DEF DEF ЕМЕ (X, Y) = 
X2+Y8) 

DIM DIM 2(3, 4) 

END END 

FNEND FNEND 

FOR-TO FOR X = 2 TO 66 

GOTO GOTO 100 

GOSUB GOSUB 100 

IF-THEN IF A = X THEN 100 

INPUT INPUT X, Y.... 

LET LET A = V 

NEXT NEXT X 


ON-GO TO ON M GO TO 10, 20, 30 


PRINT PRINT "LESLIE" 


RANDOMIZE RANDOMIZE 


READ READ L, К.... 


REM REM AREA 


Definition 


assigns to the elements of N the ASCII numeric value 
of the string N$ 


the DATA statement assigns appropriate values to 
the variables listed in the READ statement 


asingle line function is defined by the DEF statement 


dimensions the elements of X as a 3 by 4 matrix 
ends program execution 


a multiline DEF statement must end with a FNEND 
(function end) statement 


defines the FOR, NEXT loop 
transfers execution to line 100 


transfers program control to a subroutine commen- 
cing at 100 


transfers program execution to 100 if the relational 
test is true 


assigns to the variable(s) the values presented by the 
user from a user defined device 


assigns the value of V to A 
returns control to the beginning of the FOR-TO loop 


as M ranges in values from 1 up to 1st, 2nd,...line 


number is transferred control, as follows to GO TO 
statement 


prints the alphanumeric string within quotation marks 


assures each call to the RND produces a different 
order of random numbers 


reads values from the DATA statement found in the 
same program 


remark is placed in the program to be used only 
during listíng as a debugging aid 


Statement Example Definition 


RESTORE RESTORE restores the data pointer 


RETURN RETURN returns program execution to the next instruction 
following the subroutine сай 


RND RND produced a random number 


STOP STOP stops program execution 


LIBRARY FUNGTIONS 


ABS 
ATN 
ASC 


CHR$ 


absolute value 

arctangent 

converts а ASCII character to its numeric value 
and assigns it 

converts å numeric value to its ASCII character 
and assigns it 

cosine 

cotangent 

determinant 

raise e to the x power 

truncates to an integer 

determines the position of the pointer 
determines the last storage location in a file 
returns the log (base e) of the argument 
produces a random variable 

determines the sign of a variable 

sine 

Square root 

positions printing head ofa printer (CRT or LINE) 
tangent 


BASIG GOMMAND FUNCTIONS 


UNSAVE 
exponential 4 
multiplication в 
PROGRAMS 


terminates time-sharing session 

lists names of all files saved 

same as BYE 

produced a listing of the current file 

specifies that a new file is being formed 

accesses an existing file 

allows the name of a current file to be changed 

causes current program to be executed 

causes current program to be saved (stored) 

deletes the current file 

transfers control from BASIC to the system's 
monitor 

cancels storage of a file 


The programs appear in alphabetical order. Each one contains any 
applicable formulae, followed by an example of using the Program, 
the Flow Chart, and lastly, the Program itself. 
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ANNULAR SEGTIONS 
This program computes the various ;-arameters; moment of 
inerta, polar moment of inertia and area; connected with an annular 
section. 


FORMULAE 
= z (d – di) თ (à — 4? 
ANNULAR SECTION 1= “ag Ас —— 
_ т (d2* — di?) 
pec 


where I and J is in (in.3) and A is in (іп.2. 


EXAMPLE 

INSIDE DIAMETER (D1) = 

? 

3 

OUTSIDE DIAMETER (D2) = 
? 


4.11 

MOMENT OF INERTIA = 10 

POLAR MOMENT OF INERTIA = 20 
AREA OF SECTION = 6.18 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
* END 
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ANNULAR SECTIONS 


PROMPT + INPUT 
Di 

PROMPT + INPUT 
D2 


CALCULATE 
l, JAND A 


OUTPUT 
\ PARAMETERS 


PROMPT + INPUT 
CONTINUE 
COMMAND 
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ANNULAR SECTIONS 
10 REM THIS PROGRAM COMPUTES THE VARIOUS 
20 REM PARAMETERS CONNECTED WITH AN ANNU- 
LAR 
30 REM SECTION 
40 PRINT “INSIDE DIAMETER (DI) =”; 


50 INPUT DI 
60 PRINT “OUTSIDE DIAMETER (D2) =”; 
65 INPUT D2 


70 LET P = 3.14159 
80  LETI=(P*(D2% 4) – ФИ 4)))/64 
90 LETJ=TI2 
100 LETA = (P*((D24 2) – ОИ 2)))/4 
110 PRINT "MOMENT OF INERTIA = “1 
120 PRINT “POLAR MOMENT OF INERTIA = “;J 
130 PRINT "AREA OF SECTION = “A 


140 PRINT 

150 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
160 INPUT L 

170 IFL=1 THEN 190 

180 STOP 

190 PRINT 

200 GOTO 40 

210 END 
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ARITHMETIC MEAN 


After each sample is entered the computer responds with sample 
number and the current mean. The program will continue to run until 
the operator types an exit or а break command. 


FORMULA 
А М 
yl წ 
ჩ დ > 
=] 
EXAMPLE 
ENTER SAMPLE 
? 
5 


N=1 SAMPLE=5 CURRENT MEAN = 5 
ENTER SAMPLE 
? 
67 

N=2 SAMPLE = 67 CURRENT MEAN = 36 
ENTER SAMPLE 
? 


5 
N=3 SAMPLE = 5 CURRENT MEAN = 25.6666 
ENTER SAMPLE 
? 
45 


N=4 SAMPLE = 45 CURRENT MEAN = 30.5 
ENTER SAMPLE 
? 


12 

N=5 SAMPLE =12 CURRENT MEAN = 26.8000 
ENTER SAMPLE 
? 


123 
N=6 SAMPLE = 123 CURRENT MEAN = 42.8333 
ENTER SAMPLE 
? 
0 
N=7 SAMPLE = 0 CURRENT MEAN = 36.7142 
ENTER SAMPLE 
? 
*END 
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ARITHMETIC MEAN 


ASSIGN 0 
TO 
X AND N 


PROMPT + INPUT 
SAMPLE 
CALCULATE 
SAMPLE NUMBER 
+ 
CURRENT MEAN 


OUTPUT 
CURRENT MEAN 


16 


ARITHMETIG MEAN 


10 


REM THIS PROGRAM COMPUTES THE ARITHME- 


PRINT “ENTER SAMPLE”; 

INPUT W 

LETN=N+1 

LET X =X + W 

LET А = X/N 

PRINT"N = ”; N, “SAMPLE = ”; W, "CURRENT MEAN 


” 


— . 
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ARITHMETIG PROGRESSION 


From the following information; first term, common difference 
and number of terms, this program computes the arithmetic pro- 


gression. 
FORMULA 
A, A + D, A +2D,...A + ((N— ID) 
EXAMPLE 
FIRST TERM = 
? 
10 
COMMON DIFFERENCE = 
? 
2 
NUMBER OF TERMS = 
? 


5 
FOR TABLE ТҮРЕ 1, IF NOT ТҮРЕ 0 
? 


1 


ARITHMETIC PROGRESSION 

TERM NUMBER TERM PROGRESSION 
1 10 
2 12 
3 14 
4 16 
5 18 
SUM = 70 

TYPE 1 TO CONTINUE, 0 TO STOP 

2 

0 

“END 
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(=) ARITHMETIC PROGRESSION 


PROMPT + INPUT 
1ST TERM, DIF, 
TERM + 


PROMPT + INPUT 


TABLE COMMAND 
PRINT 
TERM VALUE, 
+ NUMBER 
SET UP 
"FOR" 
STATEMENT 


CALCULATE 
TERM VALUE 


+ 
UPDATE SUM 


OUTPUT 
TERM NUMBER + 
VALUE 


OUTPUT 
SUM 


PROMPT + INPUT 
CONTINUE 
COMMAND 


ARITHMETIC PROGRESSION 
10 КЕМ THIS PROGRAM COMPUTES ARITHMETIC 
PROGRESSION 
20 PRINT "FIRST TERM =”; 
30 INPUT Å 
40 PRINT "COMMON DIFFERENCE =”; 
50 INPUT D 


60 PRINT "NUMBER OF TERMS = ”; 


20 


INPUT N 


PRINT “FOR TABLE TYPE 1, IF NOT TYPE 0”; 


INPUT C 

IF С = 1 THEN 120 

GOTO 140 

PRINT “ARITHMETIC PROGRESSION” 
PRINT “TERM NUMBER”, “TERM VALUE” 
LET J = 0 

FORI=0TON-1 

ГЕТК =1+1 

LET L = + (ËD) 

LETJ=J+L 

IF C = 1 THEN 210 

GOTO 220 

PRINT К, L 

NEXT I 

PRINT "SUM = ”;J 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT X 

IF X = 1 THEN 290 
STOP 

PRINT 

GOTO 20 

END 


BLACKJACK 


Blackjack, or the game of 21, is played against the computer, it being 
the dealer. Cards are dealt from a self-replenishing deck. Standard 
rules are as follows: 


* Blackjack wins unless the dealer also gets blackjack, in 
which case there is no winning player. 

e The highest score below 21 wins. 

е The dealer must draw а card if he is below 17, but must 
stand if he has 17 or greater. 

e Aces count as 11 unless it would force a hand over 21, in 
which case the ace counts as 1. 


EXAMPLE 

RUN 

IF INSTRUCTIONS ARE REQUIRED TYPE YES 
IF NOT TYPE NO 

5 

NO 

***GOOD-LUCK-----MAY THE BEST ONE WIN*** 
THE DEALER HAS A 9 SHOWING 

YOU HAVE A 5 AND A 11 

YOUR TOTAL IS 16 

DO YOU WANT A HIT, OR DO YOU STAND 

? 

HIT 

YOUR CARD 154 

DO YOU WANT A HIT, OR DO YOU STAND 

? 


STAND 

THE DEALER HAS 12 

THE DEALER DRAWS A 5 
HIS TOTAL IS 17 

YOU HAVE 20 

YOU HAVE WON!!! 

DO YOU WISH TO PLAY AGAIN 
TYPE YES OR NO 

2 

МО 

BLACKJACK SAYS GOOD-BYE 
*END 


21 


ARE INSTRUCTIONS 
REQUIRED 


BLACK JACK 


OUTPUT 
INSTRUCTION 


YES 


SET-UP 


INITIALIZE 
VARIABLES А pk Ad a 
| 
OUTPUT 
OPENING 
НАНО DEALER HAS BJ 


YES | 

YES OUTPUT МО 4 | 

PLAYER HAS BJ | 

Y GET 1 
SS ES NEXT 
STAND CARD 


OUTPUT QUTPUT | 
DEALER HAS D CARD 


A 
OUTPUT 
DEALER + PLAYER 
vest NO 


OUTPUT YES 
T PLAYER HAS WON 


NO 


OUTPUT 
DEALER HAS WON 


BLACKJACK 


10 REM BLACKJACK 

20 PRINT “IF INSTRUCTIONS ARE REQUIRED TYPE 
YES” 

30 PRINT “IF NOT TYPE NO" 

40 INPUT C$ 

50 IF C$ = “YES” THEN 90 


210 


220 


230 


240 


250 
260 


270 
280 
290 


300 
310 


320 
330 


IF С$ = “МО” THEN 340 
PRINT “INVALID RESPONSE” 
GOTO 20 
PRINT 
РВД САСКЕ 
PRINT 
PRINT “THE COMPUTER AS THE DEALER, DEALS 
TWO CARDS TO ITSELF” 
PRINT “AND TWO CARDS TO THE PLAYER. THE 
PLAYER'S TWO CARDS” 
PRINT “ARE SHOWN FACE UP, WHILE ONLY ONE OF 
THE DEALER'S” 
PRINT “CARDS IS SHOWN. BOTH THE DEALER AND 
THE PLAYER” 
PRINT “MAY DRAW ADDITIONAL CARDS.” 
PRINT “THE PLAYER’S GOAL IS TO REACH 21 OR 
LESS, ВОТ” 
PRINT “BE CLOSER TO 21 THAN THE DEALER's 
HAND.” 
PRINT “IF THE PLAYER'S OR THE DEALER'S HAND 
TOTALS” 
PRINT “GREATER THAN 21 HE IS BUSTED! THE 
KING” 
PRINT “THE QUEEN AND THE JACK ALL COUNT AS 
10 POINTS.” 
PRINT “ALL OTHER CARDS EXCEPT THE 
ACE COUNT AS THEIR FACE” 
PRINT “VALUE SHOWS. THE ACE COUNTS AS 11 
UNLESS THIS" 
PRINT “WOULD CAUSE THE HAND TO BE OVER 21, 
IN THAT" 
PRINT “CASE THE ACE COUNTS AS 1.” 
PRINT “IF BOTH THE DEALER AND THE PLAYER 
GET BLACKJACK” 
PRINT "WHICH IS A TWO CARD HAND TOTALING 21” 
PRINT “NEITHER WINS, IT IS A PUSH" 
PRINT “IF THE DEALERS HAND IS BELOW OR 
EQUAL TO 16” 
PRINT “HE MUST DRAW, AFTER 17 THE DEALER 
MUST STAND” 
PRINT “TO RECEIVE А CARD YOU WANT A HIT-" 
PRINT “TO STOP WHERE YOU ARE, YOU STAND-” 
PRINT 
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PRINT"***GOOD-LUCK-----MAY THE BEST ONE 
WIN***®” 

REM 1ST HAND 

RANDOMIZE 

LET D + Q 

LET P=D 

GOSUB 820 

LET DI = C 

GOSUB 820 

LET D2 = C 

GOSUB 890 

LET PI C 

GOSUB 890 

LET P2=3 

PRINT 

PRINT “THE DEALER HAS A ”;D1;" SHOWING" 

PRINT “YOU HAVE A ”:P1;“ AND A ”;P2 

PRINT “YOUR TOTAL IS ”;Р1 + P2 

LET D = D1 + D2 

LET P = P1 + P2 

IF P = 21 THEN 640 

GOSUB 960 

IF L = 1 THEN 690 

IF D< = 16 THEN 740 

PRINT “THE DEALER HAS ”:D 

PRINT “YOU HAVE ”;P 

IF P > D THEN 620 

REM WIN OR LOSS STATEMENTS 

PRINT “THE DEALER HAS WON!!!” 

GOTO 1060 

PRINT “YOU HAVE WON!!!” 

GOTO 1060 

PRINT “***YOU HAVE BLACKJACK ***" 

IF D = 21 THEN 670 

GOTO 560 

PRINT "THE DEALER ALSO HAS BLACKJACK, 

SORRY NO WINNER” 

GOTO 1060 

GOSUB 890 

PRINT “YOUR CARD IS C 

IF P > 21 THEN 600 

GOTO 530 

PRINT "THE DEALER HAS ”;D 


GOSUB 820 
LETD=D+C 

PRINT “THE DEALER DRAWS A ”:C 
PRINT “HIS TOTAL IS ”;D 
IF D > 21 THEN 620 

IF D <= 16 THEN 750 
GOTO 560 

LET C = 1 + INT(11*RND) 
IF C = 11 THEN 850 
GOTO 880 

IF D + C > 21 THEN 870 
GOTO 880 

LETC = 1 

RETURN 

LET C = 1 + INTQ1“RND) 
IF C = 11 THEN 920 
GOTO 950 

IF P + C> 21 THEN 940 
GOTO 950 

LET С = 1 

RETURN 


PRINT “DO YOU WANT A HIT, OR DO YOU STAND” 


INPUT Q$ 
IF Q$ = “HIT” THEN 1020 
IF Q$ = “STAND” THEN 1040 
PRINT “INVALID RESPONSE” 
GOTO 960 
LET L =1 
GOTO 1050 


PRINT “DO YOU WISH TO PLAY AGAIN” 
PRINT “TYPE YES OR NO” 

INPUT L$ 

IF L$ = “YES” THEN 1130 

PRINT “BLACKJACK SAYS GOOD-BYE” 
STOP 

PRINT 

GOTO 20 

END 
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NENNEN f 


BUBBLE SORT 


This program is actually a subroutine rather than a stand-alone 


program. It is intended to be used in conjunction with larger pro- 
grams which require that data be placed in an array in ascending 


sequence. 
BUBBLE SORT 
10 REM THIS PROGRAM IS A BUBBLE SORT, WHICH 
PLACES THE 
20 REM VALUES IN AN ARRAY IN ASCENDING SE- 
QUENCE 
30 REM IT ISINTENDED TOBEAN EXAMPLE AND 
NOT A 
40 REM SPECIFIC CASE. | 
50 REM THIS PROGRAM MAY BE CONVERTED INTO A 
SUBROUTINE 
60 REM FOR USE IN A LARGER FROGRAM 
70 | REM THE ARRAY IS Z OF LENGTH М 
80 — REMZIS ASSUMED TO HAVE BEEN DECLARED IN Å 
DIM 
90 REM STATEMENT AND М SET AHEAD OF TIME 
100 LETI=N-1 
10  FORJ=1TOI 
120 LETK=J+1 
130  FORLZNTOKSTEP- 1 
140  IFZ(L) > ZO) THEN 210 
150 REM SAVE FIRST VALUE 
160 LETT = Z(L) 
170  LETZ(L) =20) 
180 LET ZO) =: T 
190 ВЕМ IF Z IS THE KEY FOR SORTING MULTIPLE 
200 REM ARRAYS AND EXTRA CODE НЕКЕ 
210 NEXTL 
220 — NEXT] 
230 RETURN 
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CHI-SQUARE EVALUATION 
This program computes the chi-square evaluation from the input- 
edobserved and expected frequencies. To terminate the evaluation 
the use simply inputs a 0 for the last expected frequency. 


FORMULA 
N 
2 _ (O: — Ey? 
5 2 Ei 

{ =] 
EXAMPLE 
OBSERVED FREQUENCIES = 
? 
10 
EXPECTED FREQUENCIES = 
? 
10 
OBSERVED FREQUENCIES = 
? 
0 
OBSERVED FREQUENCIES = 
2 
0 


CHI-SQUARE = 0 


sce joie bi d eo eb e kak kk 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


27 


Eh. 9 LT ki 


START 


CHI-SQUARE EVALUATION 


ASSIGN Ø 
TO J 


PROMPT + INPUT 
OBSERVE 
FREQUENCIES 
PROMPT + INPUT 
EXPECTED FREQ. 


<= 


NO 
% PRINT CHI-SQUARE 


| DATE 


UP 
CHI-SQUARE PROMPT + INPUT 
CALCULATE ONTINUE COMMAND 


CHI-SQUARE EVALUATION 


10 REM THIS PROGRAM COMPUTES CHI-SQUARE 
20 REM EVALUATION ON THE OBSERVED TO 

30 REM EXPECTED FREQUENCIES 

40 LETJ=0 
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PRINT "OBSERVED FREQUENCIES =” 
INPUT D 

PRINT "EXPECTED FREQUENCIES =” 
INPUT E 

IF E = 0 THEN 130 

LET K = ((D — E)42)/E 

LETJ=J+K 

GOTO 50 

PRINT “CHI-SQUARE = ”;J 

PRINT EE XXXI # X XI джж? 

PRINT “ТҮРЕ 1 TO CONTINUE, 0 TO STOP" 
INPUT L 

IF L = 1 THEN 190 
STOP 

PRINT 

GOTO 40 

END 
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CIRCLE DETERMINED BY THREE POINTS 


The user inputs three noncolinear points, and the program responds 
with the center and the radius of the circle thus generated. 


FORMULAE 


Kon Ki 


yo = Ni Xo = Кг — N2Yo 
2 -- 


r= (Хз – Xo)”+ (Ys — Yo)’ 


К: = СХ. — X) (X2 + X) + (Y - У) (Y? + У) 
2(X2 — XI) 


Кә = (Хз – Хз + Ху) + (Ys — YD + Yo 
2(X3 – XI) 


EXAMPLES 
INPUT XL, Y1 
? 

2,3 

INPUT Х2,Ү2 
? 


5,4 
INPUT ХЗ, ҮЗ 
? 


6,4.5 

CENTER X0,Y0 = — 1.25,17.25 

RADIUS = 15.10 

TO CONTINUE TYPE 1, IF NOT TYPE 0 
? 


0 
*END 
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CIRCLE DETERMINED BY THREE POINTS: 


PROMPT AND 
INPUT 
POINTS 


COMPUTE 
Xo, Yo, R 


PRINT 
Xo, Yo, R 


PRINT AND 
INPUT CONTINUE 
_ COMMAND 


YES 


Dé 


CIRCLE DETERMINED BY THREE POINTS 


10 
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REM THIS PROGRAM COMPUTES THE CENTER 
AND RADIUS 

REM OF A CIRCLE FROM 3 NON-COLINEAR POINTS 
PRINT "INPUT XL, YI”; 

INPUT X1, Y1 

PRINT “INPUT Х2,Ү2”; 

INPUT X2, Y2 

PRINT “INPUT X3, Y3”; 

INPUT ХЗ, ҮЗ 

LET A = (Y2 — Ү1)/(Х2 - X1) 

LET В = (ҮЗ — Y1)/(X3 – X1) 

LET С = (X2 — X1)*(X2 + X1))* 

+ ((Y2 — YD*(Y2 + Ү1)) 

LET D = C/(2*(X2 — X1)) 

LET E = ((X3 — X1)*(X3 + X1)) + (Y3 – YD* 
(ҮЗ + Ү1)) 

LET F = E/2*(X3 — X1) 

LET YO = (F — D)/(B - A) 

LET ХО = F — (B*YO) 

LET В = SQR((X3 — X0)12 + (ҮЗ — Y0)12) 
PRINT “CENTER X0, YO = ”;X0;”,”; YO 

PRINT “RADIUS =”;К 

PRINT 

PRINT “TO CONTINUE TYPE 1, IF NOT TYPE 0” 
INPUT L 

IF L = 1 THEN 250 

STOP 

PRINT 

GOTO 30 

END 


CIRCULAR SECTIONS 


This program computes the various parameters: moment of 
inertia, polar moment of inertia and area connected within a circular 


section. 
FORMULAE 
CIRCULAR SECTION I = ZD A = ZD 
64 4 
_ пр* 
= 732 


where I & J are in int and A = in? 


EXAMPLE 


RADIUS 

? 

5 

MOMENT OF INERTIA = 490.873 

POLAR MOMENT OF INTERTIA = 981.746 
AREA OF SECTION = 78.5397 


#XM1MXM XX MX je # XI КЖК кор 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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CIRCULAR SECTIONS 


PROMPT + — 
INPUT RADIUS ` 


OUTPUT 
‚PARAMETERS 


CALCULATE 
PARAMETERS 


CONTINUE 
MESSAGE + INPUT / 


IS L = 1? 


NO 


CIRCULAR SECTION 


10 


REM THIS PROGRAM COMPUTES THE PARA- 
METERS 

REM CONNECTED WITH A CIRCULAR SECTION 
PRINT “RADIUS” 

INPUT R 

LET P = 3.14159 

LET D = 2*R 

LET I = (P*(Dt4))/64 

LET J = I*2 

LET A = (P*(D42)/4 

PRINT "MOMENT OF INERTIA =”; 

PRINT “POLAR MOMENT OF INERTIA = ”;J 
PRINT “AREA OF SECTION =”;А 

PRINT 64 ae sk se oe ke ke sh de he je he EEE ET ЖЕ ЖЕЖ EH? 

PRINT "TYPE 1 TO CONTINUE, 0 TO STOP" 
INPUT L 

IF L = 1 THEN 180 

STOP 

PRINT 

GOTO 30 

END 
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COMPOUNDED AMOUNTS 


This program applies to an amount of principle placed into an account 
and compounded periodically, with no further deposits. 


FORMULAE 
In(X/Y) 
X = YQ + р" N = inl +D 
У = Ха + 1)“ L = YQ +D" – 1) 


where N = number of Time periods 

I = interest rate (decimal) L = interest 
Y = present value 
X = future value 


EXAMPLE 


FUTURE VALUE(1) 

PRESENT VALUE (2) 
INTEREST (3) 

PERIODIC INTEREST RATE (4) 
NUMBER OF TIME PERIODS (5) 
ENTER 1 TO 5 

? 

1 

PRESENT VALUE = 

? 

100 

INTEREST RATE = 

? 

10 

NUMBER OF TIME PERIODS = 
? 

4 

FUTURE VALUE = 146.41 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 

1 

ENTER 1 TO 5 

? 


2 
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FUTURE VALUE = 
? 

200 

INTEREST RATE = 


? 


51 
NUMBER OF TIME PERIODS = 
7 


5 

PRESENT VALUE =124.18 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

1 

ENTER 1 TO 5 

? 


3 

PRESENT VALUE = 
2 

300 

INTEREST КАТЕ = 
2 


‚2 
NUMBER OF TIME PERIODS = 
? 


6 

INTEREST =595.80 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
ENTER 1 TO 5 
2 


4 

PRESENT VALUE = 

2 

100 

FUTURE VALUE = 

2 

200 

NUMBER OF TIME PERIODS = 
? 

5 

INTEREST RATE = .15 


ТҮРЕ 1 TO CONTINUE, 0 TO STOP 
? 


1 


ENTER 1 TO 5 
? 


5 

FUTURE VALUE == 

г 

500 

PRESENT VALUE = 
? 

250 

INTEREST КАТЕ = 
? 


2 

NUMBER OF TIME PERIODS =3.8 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


COMPOUNDED AMOUNTS 


START 


PRINT OPTIONS 


PRCMPT AND 
INPUT DESIRED 
IPTION 


PAINT 


ESULT 


2 
= 
ლ 
2 


PROMPT AND 
INPUT CONTINUE 
COMMAND 


yon 
li 


Ç 
= 
c 
G 
CÉ 


38 


CALCULATE PRINT AND 
INPUT OPTION 
OPTION VARIABLES 


COMPOUNDED AMOUNTS 


10 КЕМ COMPOUNDED AMOUNTS 
20 PRINT “FUTURE VALUE (1)” 
30 PRINT "PRESENT VALUE (2)" 
40 PRINT "INTEREST (3) 
50 PRINT “PERIODIC INTEREST RATE (4)” 
60 PRINT “NUMBER OF TIME PERIODS (5)” 
70 PRINT “ENTER 1 TO 5”; 
80  INPUTA 
90 ONA GOTO 100,160,220,280,340 
100 GOSUB 410 
110 GOSUB 440 
120 | GOSUB 470 
130 LET X = Y*((1 +D1N) 
140 PRINT "FUTURE VALUE = X 
150 GOTO 390 
160 | GOSUB 500 
170 | GOSUB 440 
180 GOSUB 470 
190 LET Y = X*((1 +D1N) 
200 PRINT "PRESENT VALUE = ”;Y 
210 СОТО 390 
220 | GOSUB 410 
230 GOSUB 440 
240 | GOSUB 470 
250 ТЕТІ = Y*((1 -H1N) - 1) 
260 PRINT "INTEREST = 5L 
270 СОТО 390 
280 GOSUB 410 
290 | GOSUB 500 
300 GOSUB 470 
310 ТЕТІ = (СУХИМ) - 1 
320 PRINT "INTEREST RATE =”; 
330 GOTO 390 
340 | GOSUB 500 
350 | GOSUB 410 
360 GOSUB 440 
370 LET N = (LOG(X/Y))/(LOG(1 + D) 
380 PRINT "NUMBER OF TIME PERIODS = ”;N 
390 PRINT 
400 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
401 INPUTL 
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403 STOP 

404 PRINT 

405 GOTO 70 

410 PRINT “PRESENT VALUE =”; 
420 INPUT Y 

430 RETURN 

440 PRINT “INTEREST RATE =”; 
450 INPUT I 

460 RETURN 

470 PRINT "NUMBER OF TIME PERIODS =”; 
480 INPUT N 

490 RETURN 

500 PRINT "FUTURE VALUE =”; 
510 INPUT X 

520 RETURN 

530 END 
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COORDINATE TRANSLATION AND/OR ROTATION 
This program will compute rectangular-coordinate translation 
and/or rotation. The origin is translated from (0,0) to а new point 
(X, Y) and the X, Y axes are rotated to an angle Å to give new axes 
X,Y.. 
FORMULAE 


\ COORDINATE TRANSLATION 
AND/OR ROTATION 


A adi 
“>й 


x! 


X! = (X — Xo)Cos a + (Y - Yo)Sin a 


Y! = ~ (X — X9Sin a + (Y — Yo)Cos a 
EXAMPLES 
ANGLE OF ROTATION IN DEGREES= 
? 
45 
COORDINATES OF NEW ORIGIN (ХО, YO)= 
? 
5,6 
OLD COORDINATES OF DATA POINT (X1, Y1)= 
? 
8,9 
SPECIFIED ROTATION = 45 
NEW COORDINATES OF DATA POINT 
X2 —4.24 
Y2 = 0 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 
0 
*END 
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PROMPT AND 
INPUT ANGLE 
OF ROTATION 


PROMPT AND 
INPUT NEW 
ORIGIN 


PROMPT AND — 
INPUT OLD 
DATA POINTS 


CALCULATE 
NEW 
DATA POINTS 


<-> YES ` 
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COORDINATE TRANSLATION AND/OR ROTATION 


COORDINATE TRANSLATION AND/OR ROTATION 


10 КЕМ THIS PROGRAM COMPUTES RECTANGULAR 
COORDINATE 

20 REM TRANSLATION AND/OR ROTATION 

30 PRINT "ANGLE OF ROTATION IN DEGREES =”; 

40 INPUT A 

90 ТЕТ B = (A*3.14159)/180 

60 PRINT “COORDINATES OF NEW ORIGIN (ХО, YO) =’; 

70 INPUT X,Y 

80 PRINT “OLD COORDINATES OF DATA POINT (X1, Y1) 


DA 


90  INPUTF,C 
100 LETZ-F-X 
110 LETW=C-Y 
120 ГЕТ = (Z*COS(B)) + (W*SINB)) 
130 ТЕТЕ = ~ (Z*SIN(B)) + (W*COS(B)) 
140 PRINT 
150 PRINT “SPECIFIED ROTATION =”;A 
160 PRINT “NEW COORDINATES OF DATA POINT” 
170 PRINT “X2 = ;D 
180 PRINT "Y2 2 5E 


190 PRINT 

200 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP" 
210 INPUTL 

220 IFL=1 THEN 240 

230 STOP 

240 PRINT 

250 СОТО 30 

260 END 


CRAPS 


The following game-simulation is that of craps. Craps is a game that 
is played with two dice. The object of the game is to either win by 
throwing a 7 or an 11 on the first throw, or by matching your throw 
on the following throws. If on the first throw а 2, 3, or a 12 comes up 
you lose automatically; also, if you throw a 7 when looking for a 
match you lose too. 


EXAMPLE 

RUN 

FOR RULES, TYPE RULES, OTHERWISE TYPE GO 
2 

GO 

6 

8 

4 


YOU THROW A 6 YOU WIN BY MATCHING 
TO CONTINUE TYPE Y, IF NOT TYPE N 
? 


Y 

FOR RULES, TYPE RULES, OTHERWISE TYPE GO 
? 

GO 

YOU THROW A 7 YOU WIN 

TO CONTINUE TYPE Y, IF NOT TYPE N 


N 
“END 


iF tst THROW 
7.11.2. 308 12 


PROMPT + INPUT 
ONTINUE COMMAND) 


CRAPS 


S THIS PROGRAM SIMULATES THE GAME OF 


RAPS 
RANDOMIZE 
PRINT * FOR RULES, TYPE RULES, OTHERWISE 
TYPE СО” 
INPUT R$ 
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IF R$ = “RULES” THEN 90 

IF R$ = “СО” THEN 140 

PRINT “INVALID COMMAND” 

GOTO 30 

PRINT “A 7 OR 11 ON THE FIRST THROW WINS” 
PRINT “YOU CAN ALSO WIN BY THROWING A 
4,5,6,8,9, 10” 

PRINT “ AND MATCHING IT BEFORE THROWING A 
7. IF ON” 

PRINT “THE FIRST THROW A2,3 ORA12 COMES UP” 
PRINT “YOU LOSE AUTOMATICALLY” 

LET J = 0 

GOSUB 460 

LET D1 =N 

GOSUB 460 

LET D2 = N 

LET D3 = D1 + D2 

LETJ=J+1 

IF J = 1 THEN 260 

IF D3 = D4 THEN 420 

IF D3 = 7 THEN 440 

PRINT “YOU THROW A ”;D3 

GOTO 150 

IF D3 = 7 THEN 320 

IF D3 = 2 THEN 340 

IF D3 = 3 THEN 340 

IF D3 = 12 THEN 340 

IF D3 = 11 THEN 320 

LET D4 = D3 

GOTO 240 

PRINT “YOU THROW A ”;D3;“ YOU WIN” 

GOTO 350 

PRINT “YOU THROW A ”;D3;“ YOU LOSE” 

PRINT 

PRINT “TO CONTINUE TYPE Y, IF NOT TYPE N” 
INPUT L$ 

IF L$ = "Y” THEN 400 

STOP 

PRINT 

GOTO 30 

PRINT “YOU THROW A ”;D3; "YOU WIN BY MATCH- 
ING’ 

GOTO 350 


440 
450 
460 
470 
480 


PRINT “YOU THROW A ”; D3;“ SORRY YOU LOSE” 


GOTO 350 

LET М = 1 + INT(6*RND) 
RETURN 

END 
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CURVE TABLES (PLOTTING) 


This program generates a series of data points, with which the user 
can plot curves. The data points generated lie between the values 
given for the starting value and the end point of X. Step size may be 
changed by using a step statement in conjunction with the FOR 
statement. The user must supply the equation of the curve in line 
140. 


EXAMPLE 


(ASSUMING THE EQUATION IS (2*X) + 6) 
STARTING VALUE OF X = 
? 


5 

END VALUE OF X = 
2 

10 

TABLE 

X Y 

5 16 

6 18 

7 2 

8 2 

9 2 

10 26 

TYPE 1 TO CONTINUE,0 TO STOP 
2 

0 

*END 
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CURVE TABLES 


PROMPT AND 
INPUT 
END VALUES 
PRINT TABLE 
PRINT "X", "Y" 


CALCULATE 
X. Y 


PRINT 
LY 


NO 


YES 


PRINT AND 
INPUT CONTINUE 
COMMAND 
YES 
NO 


ლლ 


STOP 
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GURVE TABLES 


10 


50 


REM THIS FROGRAM GENERATES А SERIES OF 
REM DATA POINTS, WITH WHICH THE USER CAN 
REM PLOT CURVES. THE DATA POINTS GENE- 
RATED 

REM LIE BETWEEN THE VALUES GIVEN FOR X 
REM IF А STEP SIZE OTHER THAN 1 IS DERIVED 
REM USE А STEP STATEMENT WITH THE FOR 
STATEMENTS 

PRINT “STARTING VALUE OF X =”; 

INPUT X 

PRINT “END VALUE OF X =”; 

INPUT W 

PRINT “TABLE” 

PRINT “X”,“Y” 

FORI =X TOW 


PRINT “TYPE 1 TO CONTINUE,0 TO STOP” 
INPUT L 

IF L = 1 THEN 220 

STOP 

PRINT 

GOTO 70 

END 


DAY OF THE WEEK 


This computer program computes the day of the week (e.g., Mon- 
day) from the date entered. The date entered must not be prior 
1753, this is due to changes involving the switch-over from the Julian 
to the Gregorian Calandar. 


EXAMPLE 


RUN 
ENTER DAY(D), MONTH(M) AND YEAR(Y) 
2 


16,02,1977 

THE DAY OF THE WEEK IS WEDNESDAY 
FOR NEXT DATE IN YES, IF NOT 

TYPE NO 

3 

NO 

DAY OF THE WEEK SAYS GOOD-BYE 
*END 
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DAYS OF THE WEEK 


| START 


INITIALIZE 
VARIABLES 


PROMPT + INPUT 


D, M, Y 
ERROR 
< IS Y>1752 ESE AGE 
YES 
SAL 
CALCULATE = 
შეი. RESULTS 
WEEK 
| 
PROMPT + INPUT 
TINUE COMMAND 


IS L$ = "YES" 


NO 


< в L$ = "NO" 0 


YES 
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DAY OF THE WEEK 


10 REM THIS PROGRAM COMPUTES THE DAY OF THE 
WEEK 
20 КЕМ RESTRICTION: THE DATE MUST BE AFTER 
1752 
30 LET J$(1) = “SUNDAY” 
40 LET J$(2) = “MONDAY” 
50 LET J$(3) = "TUESDAY" 
60 LET J$(4) = "WEDNESDAY" 
70 LET J$6) = "THURSDAY" 
80 LET J$(6) = "FRIDAY" 
90 LET J$(7) = "SATURDAY" 
100 PRINT "ENTER DAY(D), MONTH(M) and YEAR(Y)” 
110 INPUT D,M,Y 
10 IF Y > 1752 THEN 150 
130 PRINT "YEAR MUST NOT BE PRIOR TO 1753" 
140 GOTO 100 
150 LET K = INT(0.6 + (1/M)) 
160 LETL=Y-K 
170 LETO =M + 12*K 
180 ІЕТР-і,100 
190 LET 71 = INT(P/4) 
200 LET 22 = МТФ) 
210 LET Z3 = INT((5*L)/4) 
220 LET 24 = INT (13*(0 + 1)/5) 
230 LETZ=74+27Z3-72+Z1+D-1 
240 LET Z=Z — (7*INT(Z/7)) + 1 
250 PRINT “THE DAY OF THE WEEK 15”; J$(Z) 
260 PRINT 
270 PRINT "FOR NEXT DATE TYPE IN YES, IF МОТ” 
280 PRINT “TYPE NO" 
290 INPUT L$ 
300 IF L$ = “YES” THEN 340 
310 IF L$ = “NO” THEN 360 
320 PRINT "INVALID COMMAND” 


330 GOTO 270 
340 PRINT 
330 GOTO 30 


360 PRINT “DAY OF THE WEEK SAYS GOOD-BYE" 
370 END 


DETERMINANT AND INVERSE OF А 2 x 2 MATRIX 


The computer computes the inverse and determinant of a 2 x 2 
matrix supplied by the user. 


EXAMPLE 
ENTER A11,A12 
? 
5,3 
ENTER A21,A22 
2 
2,1 
ORIGINAL MATRIX 
5 3 
2. d 
INVERSE OF MATRIX 
-1 4 
2 -5 
DETERMINANT = - 1 
TYPE 1 TO CONTINUE, 0 TO STOP 
2 


0 
*END 
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PROMPT AND 
INPUT MATRIX 


COMPUTE 
DETERMINANT 
AND INVERSE 


PRINT 
DETERMINANT AND INVERSE ORIGINAL 
OF 2 x 2 MATRIX MATRIX 
PRINT 
INVERSE OF 
MATRIX 


PRINT 
DETERMINANT 


PROMPT AND 
INPUT CONTINUE 
COMMAND 


DETERMINANT AND INVERSE OF 2 x 2 MATRIX 


10 КЕМ THIS PROGRAM COMPUTES THE DETER- 
MINANT AND 


20 REM INVERSE OF A 2 x 2 MATRIX 
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PRINT “ENTER A11, А12”; 
INPUT А,В 

PRINT “А21, А22”; 

INPUT C,D 

LET E = (D*A) - (B*C) 

LET F = D/E 

LET G = – B/E 

LET H = - C/E 

LET I = A/E 

PRINT “ORIGINAL MATRIX” 
PRINT A,B 

PRINT C,D 

PRINT 

PRINT “INVERSE OF MATRIX” 
PRINT F,G 

PRINT H,I 

PRINT 

PRINT “DETERMINANT = ";E 
PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 30 

STOP 

PRINT 

GOTO 30 

END 


DETERMINATE INVERSE OF A 3 x 3 MATRIX 
The user inputs his original matrix, and the computer responds with 
the determinate and the inverse. 


FORMULAE 


MAREK = 2. DET A = #I8:Cვ + BiC2As + 
Аз B, C, | СаВзАз — CiBoAs — C;BsAi — CAB: 


a: Bi yi 
a2 Вг уг 
аз Вз уз 


INVERSE OF MATRIX А = 


ел = (Вз — B3C2)/DET A 
оз = (#3C2 — A:xC3/DET А 
«з = (АВз — AsB2)/DET A 
В: = (B3C1 - BiC3)/DET A 
B: = (AG — A3C)/DET А 
Вз = (438! — AiB3/DET А 
yi = (8IC2 - B2C)/DET A 
y2 = (A2Ci — AiC2)/DET А 
уз = (АВ: — A2B1/DET A 


EXAMPLE 
ENTER 3X3 MATRIK 
? 


1,4,2,2,4,2,3, 5, 1 
ORIGINAL MATRIX 
142 

242 

351 

DETERMINANT = 6 
INVERSE OF MATRIX 
-110 

67 — .83 .33 

— 38 1.17 — .67 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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DETERMINANT AND INVERSE OF 3 х 3 М 


PROMPT AND 
INPUT 3 x3 
MATRIX 


‘CALCULATE 
DETERMINANT 
| AND INVERSE 


PRINT 
ORIGINAL 
MATRIX 
PRINT 
DETERMINANT 
PRINT INVERSE 
OF 

MATRIX ` 

PROMPT AND 

INPUT CONTINUE 
COMMAND 


08 


- 
Ф 


6582485586 


DETERMINANT AND INVERSE OF 3 х 3 MATRIX 


REM THIS PROGRAM COMPUTES 3 x 3 MATRIX 


OPERATIONS 


PRINT “ENTER 3 x 3 MATRIX” 


INPUT A,B,C,D,E,F,G,H,I 


REM COMPUTE DETERMINANT OF 3*3 
LET M = (A*E*D + (B*F*G) + (C*H*D) 
LET N = M — (C*E*G) — (F*H*A) — 


REM COMPUTE INVERSE 
LET О = (ЕФ — (Н“ҒУ/М 
LET P = (СТЕ) – (D*DYN 
LET Q = (D*H) – (G*E)/N 
LET К = (H*C) – (B*D/N 
LET 5 = (A*D — (G*O)/N 
LET Т = ((G*B) — (A*H))/N 
LET U = ((B*F) - (E*OYN 
LET V = (D*C) — (A*F))/N 
LET W = ((A*E) — (D*B))/N 
PRINT “ORIGINAL MATRIX” 
PRINT A,B,C 


PRINT “DETERMINANT = ”;N 
PRINT 
PRINT “INVERSE OF MATRIX” 


PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 


INPUT L 

IF L = 1 THEN 20 
STOP 

END 
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FAGTORIALS 
This program computes by iterative multiplication of the factorial of 
Х. 


FORMULA 
OK- სთ — 2)... K-X+D 
EXAMPLE 
X= 
? 
5 
X = 5 X! = 120 
TYPE 1 TO CONTINUE,0 TO STOP 
? 
1 
X= 
? 
7 
X = 7 X! = 5040 


TYPE 1 TO CONTINUE, 0 TO STOP 
2 


1 

X= 

? 

18 

X = 18 X! = 6.40237E15 

TYPE 1 TO CONTINUE, 0 TO STOP 
2 


0 
“END 
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FACTORIALS Q 


PROMPT AND 
INPUT X 


CALCULATE 
(X) x (X-1) 


<> 


NO PRINT 
X AND X! 


PROMPT AND 
INPUT CONTINUE 
COMMAND 


A 
ISL=V? © 
YES NO STOP 


FACTORIALS 
10 REM THIS PROGRAM COMPUTES THE FACTORIALS 
OF X 
20 REM BY ITERATIVE MULTIPLICATIONS 
30 PRINT X =”; 
40  INPUTX 
00 LETZ=1 
60 FORI=1TOX 
70 LETZ=ZA 
80 МЕХТІ 
90 РАЮТ“Х=”;Х,“Х! =”z 
100 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
110 — INPUT L 
120 IFL=1THEN 140 
130 STOP 
140 — PRINT 
150 GOTO 30 
160 END 
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FIBONAGGI NUMBERS 


This program computes a table of Fibonacci numbers from the first 
two terms entered by the user, who may also specify the maximum 
number of terms. 


FORMULA 
Fi = term in the sequence; | For any two terms the 


first term = fi — 2, second term = fi — I 
fi=fi-1 +fi-2 


EXAMPLE 
ENTER 1ST TERM 
? 


1 
ENTER 2ND TERM 
? 


1 

MAXIMUM NUMBER OF TERMS = 
? 

10 

TABLE OF FIBONACCI NUMBERS 


TERM NO. FIBONACCI NUMBERS 
1 


t= 0 -19 თ > (ახა 


MAXIMUM NUMEER OF TERMS REACHED 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 

ENTER FIRST TERM 
? 

27 
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ENTER SECOND TERM 
? 


963 
MAXIMUM NUMBER OF TERMS = 
? 
5 
TABLE OF FIBONACCI NUMBERS 
TERM NO. FIBONACCI NUMBERS 
1 27 
2 963 
3 990 
4 1953 


5 2943 
MAXIMUM NUMBER OF TERMS REACHED 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


FIBONACCI NUMBERS 


სას”. 


PROMPT AND 
INPUT 
VARIABLE 


PRINT 
TABLE OF NUMBERS 


Je 


PRINT 
“TERM NO.” AND 
“FIBONACCI NO." 


сми 


CALCULATE 
NEXT 
NUMBER 
RINT 2 
PRINT ` | 
“МАХ TERMS | 
REACHED” | 
М YES | | 
IS K =N: | PROMPT AND | 
INPUT CONTINUE | | 
COMMAND | 
NO | 


FIBONACGI NUMBERS 


10 


REM THIS PROGRAM COMPUTES А TABLE OF 
FIBONACCI NUMBERS 

PRINT "ENTER FIRST TERM” 

INPUT А 

PRINT “ENTER SECOND TERM” 

INPUT B 

PRINT "MAXIMUM NUMBER OF TERMS =” 
INPUT N 

PRINT 

PRINT "TABLE OF FIBONACCI NUMBERS” 
PRINT “TERM NO.”, “FIBONACCI NUMBER” 
LET K = 1 

PRINT K,A 

LETK=2 

PRINT K,B 

LETK=K+1 

LETQ=A+B 

PRINT K,Q 

LET A=B 

LETB=Q 

IF K > = N THEN 220 

GOTO 150 

PRINT "MAXIMUM NUMBER OF TERMS REACHED” 
PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
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FIRST DERIVATIVE 


The user must supply the expression to complete the assignment 
statement in line 280. The computer will then derive the first 
derivative of the supplied equation. 


FORMULA 
x > 0 


_ f& t Ax/2) — fx — Ax/2) 
fias St) а ald 


EXAMPLE 


(ASSUMING THE EQUATION IS X12) 
VALUE OF X = 

? 

10 

IF X = 10 THEN F(X) = 100 

AND F'(X) = 20 

TYPE 1 TO CONTINUE, 0 TO STOP 
3 


1 

VALUE OF X = 

? 

20 

IF X = 20 THEN F(X) = 400 
AND F' (X) = 40 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
“END 
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©) FIRST DERIVATIVE 


PROMPT AND - 
INPUT X 


CALCULATE 
DERIVATIVE 
AND F(X) 


| PRINT | 
| X, F(X), and F(X) 


SUBROUTINE 
FOR 
FUNCTION 


PROMPT AND 
INPUT CONTINUE 
COMMAND 


| NO 


FIRST DERIVATIVE 
10 КЕМ THIS PROGRAM COMPUTES THE FIRST DE- 
RIVATIVE 


2 REM OF A FUNCTION ENTERED BY THE USER 
30 PRINT "VALUE OF X =”; 
40  INPUT Y 


67 
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LET Y= X 

LET Z = (X*(1E — 04))/2 
LETW=X+2Z 
LETV-X-Z 
LETX = W 

GOSUB 280 

LETA=P 


LET F = (A — B)/2*Z 
PRINT “IF X = ";Y, “THEN F(X) = 5C 
PRINT "AND Е (X) = "Е 


PRINT 

PRINT "TYPE 1 TO CONTINUE, 0 TO STOP" 
INPUT L 

IF L = 1 THEN 260 


GAMMA FUNCTION AND GENERALIZED FACTORIAL 


This program computes both the gamma function and the 
generalized factorial via polynomial approximation. 


FORMULAE 


оо 
r @) =f t*- !e- dt 


0 


Г @)= + AM) +A2V)....... As(Y)*)Z 


where Y = fractional part of X 
where Z = (X — 1)(Х – 2)...... (X — N) 
andX-N=1+ Y 


EXAMPLE 

RUN 

TYPE G FOR THE GAMMA FUNCTION OR 
TYPE F FOR THE GENERALIZED FACTORIAL 
? 


G 
ENTER VALUE OF X 
? 


5 
GAMMA (5) = 24 


TO CONTINUE TYPE Y, IF NOT TYPE N 
2 


Y 

TYPE G FOR THE GAMMA FUNCTION OR 
TYPE F FOR THE GENERALIZED FACTORIAL 
? 


F 
ENTER VALUE OF X 
2 


5 

5! = 120 

TO CONTINUE TYPE Y, IF NOT TYPE N 
? 


N 
*END 
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FACTORIAL POLYNOMIAL | | 
SUBROUTINE | | SUBROUTINE | | 


GAMMA FUNCTION AND GENERALIZED FACTORIAL 


10 REM THIS PROGRAM GENERATES VIA POLY- 
NOMIAL 

20 REM APPROXIMATION THE GAMMA FUNCTION 
30 КЕМ AND THE GENERALIZED FACTORIALS 

40 — LETA = 0.57717 

50 ТЕТВ = 0.98821 

60 LETC = 0.89706 

70 LET D = 0.91821 

80 LETE = 0.7567 

90 LET F = 0.4822 
100 LET G = 0.19353 


LET Н = 0.03587 

PRINT “ТҮРЕ С FOR THE GAMMA FUNCTION OR” 

PRINT "TYPE F FOR THE GENERALIZED FAC- 
TORIAL” 

INPUT A$ 

IF A$ = “G” THEN 190 

IF A$ = “F” THEN 300 

PRINT “INVALID RESPONSE” 

GOTO 120 

PRINT “ENTER VALUE OF X” 

INPUT X 

LET K =X 

LETK=K-— 1 

IF K > = 0 THEN 260 

PRINT “X MUST BE EQUAL TO OR GREATER 
THAN 1” 

GOTO 190 

GOSUB 490 

IF (X – 1) = МТС - 1) THEN 410 

GOSUB 570 

GOTO 410 

PRINT “ENTER VALUE OF X” 

INPUT X 

LET K =X 

IF K > = 0 THEN 360 

PRINT “X MUST BE GREATER THAN OR EQUAL 
TO 0” 

GOTO 300 

GOSUB 490 

IF X = INT(X) THEN 390 

GOSUB 570 

PRINT X;"! = ”;К 

GOTO 420 

PRINT “GAMMA (“;X;”) = К 

PRINT 

PRINT “TO CONTINUE TYPE Y, IF NOT TYPE N” 

INPUT L$ 

IF L$ = "Y" THEN 470 

STOP 

PRINT 

GOTO 120 

LET J = 1 

LET J = РК 
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LETK-K- 1 

IF K « 1 THEN 540 

GOTO 500 

LETL=K 

LET K = J 

RETURN 

LET Al = 1 + (A*L) + (B*(L12)) + (C“(L13)) 
LET A1 = Al + (D*(LA4)) + (E*(L15)) + (F*(LT6)) 
LET Al = Al + (G*(L17)) + (H“L18)) 

LET K = Al*K 

RETURN 

END 


GAUSSIAN PROBABILITY FUNCTION 


This program computes the Gaussian probability function of X. 


FORMULA 
1 Kè 
NAJE — på — 
í 2 TT 
EXAMPLES 
X = 
? 
3.2 
F(X) = .00238 


TO CONTINUE TYPE 1, 0 TO STOP 
? 


1 

Х = 

? 

4 

ЕО) = .000133 

TO CONTINUE TYPE 1, 0 TO STOP 
? 


1 

X= 

? 

1.2 

F(X) = .19418 

TO CONTINUE TYPE 1, 0 TO STOP 
? 


0 
*END 
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GAUSSIAN PFIOBABILITY MO 


PROMPT + INPUT 
X 


CALCULATE 
t (X) 
OUTPUT 
t (X) 
PROMPT + INPUT 
CONTINUE COMMAND 


YE 
ISL=1? > 


y NO 


GAUSSIAN PROBABILITY FUNCTION 


REM THIS PROGRAM COMPUTES THE GAUSSIAN 
PROBABILITY 

REM FUNCTION OF X 

PRINT “X =”; 

INPUT X 

LET А = EXP( — (Х12)/2) 

LET B = .398942 

LET C = B*A 

PRINT "F(X) = ”; C 

PRINT 

PRINT *TO CONTINUE TYPE 1, 0 TO STOP" 

INPUT L 

IF L = 1 THEN 140 

STOP 

PRINT 

GOTO 30 

END 


GAUSSIAN QUADRATURE 
This program computes the integral f(x)dx for а finite А by the 
6-point Gaussian-Legendre quadrature formula. It should be noted 
that f(x) must be а single-valued function. 


FORMULA 
yo 1 6 Б 
EXAMPLE іш +С) 1 + Ci 
ENDPOINT А = 
? 
0 


INTEGRAL = 0.92 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 
0 
*END 

The LET Q statement in line 470 must be completed by the 
user. Any single-valued expression may be used for f(x). 


GAUSSIAN QUADRATURE 
INITIALIZE 
VARIABLES 


PROMPT + INPUT 
A 
CALCULATE SUBROUTINE 


OUTPUT 


"INTEGRAL" G 


PROMPT + INPUT 
CONTINUE COMMAND 
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GAUSSIAN QUADRATURE 


10 КЕМ THIS PROGRAM COMPUTES THE INTEGRAL 
BETWEEN А 
20 КЕМ AND INFINITY BY GAUSSIAN QUADRATURE 
30 LET C1 = .238619 
40 ТЕТС2=- СІ 
50 LET C3 = .661209 
6 LET C4 =~ C3 
70 LET C5 = .932470 
80 LET C6 =- C5 
90 LET D1 = .467914 
100 LET D2 = .360762 
110 LET D3 = .171324 


120 LETJ=0 
130 PRINT “ENDPOINT A =”; 
140 INPUT A 


150 ШІЕТХ-(2/1-С1) + (А- 1) 
160 GOSUB 470 

170 LET N = ((4*D1)/(1 + C142)*Q 
180 LETJ=J+N 

190 LETX = (2/1 + C2) + (A — 1) 
200 GOSUB 470 

210 LET N = ((4*D1)/(1 + С2)\2)*0 
220 LETJ=J+N 

230 LET X = (2/(1 + C3) + (А – 1) 
240 | GOSUB 470 

250 | LET N = ((4*D2)/(1 + C3)12)"Q 
20 LETJ=J+N 

270 ТЕТХ = (2/(1 + С4)) + (А- 1) 
280 СОЅОЕ 470 

290 — LET N = ((4*D2)/(1 + C442)*Q 
300 LETJ=J+N 

310 LET X = (2/(1 + С5)) + (A — D 
320 GOSUB 470 

330 LET N = ((4*D3)/(1 + C5/42)*Q 
340 LETJ=J+N 

350 LET X = (2/1 + C6)) + (А- 1) 
360 GOSUB 470 

370 | LET N = ((4*D3)/(1 + C692)*2 
380 LETJ=J+N 

3900  LETG =J/2 

400 PRINT “INTEGRAL = 5G 


PRINT "TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 450 

STOP 

PRINT 

GOTO 120 

LET Q = 

RETURN 

END 
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GENERALIZED MEAN 


This program computes the generalized mean, which becomes equal 
to the arithmetic mean if the T entered by the user is 1, and equal to 
the harmonic mean if the user enters — 1. 


FORMULA 


1 
5 x y where X > 0 


Мк К 


EXAMPLE 

Т = 

? 

4 

INPUT SAMPLE 

? 

5 

GENERALIZED MEAN 
M(T) = 5 WHERE T = 4 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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GENERALIZED MEAN 
INITIALIZE 
VARIABLES 
PROMPT + INPUT 
T 
PROMPT + INPUT 
SAMPLES 


— 


NO e 
my 
ON 


MEAN 


TAS 
M(T) AND T 


PROMPT + INPUT 
CONTINUE COMMAND, 


VES 
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GENERALIZED MEAN 


10 


20 


30 


40 


80 


REM THIS PROGRAM COMPUTES THE GENER- 

ALIZED MEAN 

REM IF T = 1, THEN THE GENERALIZED MEAN 
M(T) 

REM IS EQUAL TO THE ARITHMETIC MEAN. IF 

= — 1 

REM THEN М(Т) IS EQUAL TO THE HARMONIC 
MEAN 

LET J =0 

LETN = 0 

PRINT “Т =”; 

INPUT Т 

PRINT “INPUT SAMPLE”; 

INPUT X 

IF X = 0 THEN 150 

LET J =J + (ТТ) 

LETN=N+1 

СОТО 90 

LET G = G/NA(U/T) 

PRINT “GENERALIZED MEAN” 

PRINT “M(T) 2 ”;G, “WHERE T = 5T 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP" 

INPUT L 

IF L = 1 THEN 230 

STOP 

PRINT 

GOTO 50 

END 


GEOMETRIG MEAN 


This program computes the geometric mean ot the sample entered 
by the user until а 0 is entered for the sample. 


FORMULA 


EXAMPLE 

SAMPLE = 

? 

2 

NUMBER OF SAMPLES = 1 CURRENT SAMPLE = 2 


CURRENT MEAN = 2 
SAMPLE = 
? 


5 

NUMBER OF SAMPLES = 2 CURRENT SAMPLE = 5 
CURRENT MEAN = 3.1623 

SAMPLE = 

? 

0 

TYPE 1 TO CONTINUE, 0 TO STOP 

? 


(==) GEOMETRIC MEAN 


INITIALIZE 
VARIABLES 


0 
“END ` 


PROMPT + INPUT 
SAMPLE 


я PROMPT + INPUT 
N CONTINUE COMMAND 
CALCULATE 
CURRENT 
MEAN 


OUTPUT >. 
TM 
CURRENT MEAN 5 
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_-იდიდVV..)...:.::.._>-·ტვეა,ეა >. - 


GEOMETRIG MEAN 


10 
20 


30 
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REM THIS FROGRAM COMPUTES THE GEOMETRIC 
MEAN 

REM AFTER EACH SAMPLE IS ENTERED, THE 
NUMBER OF 

REM SAMPLES, THE CURRENT SAMPLE AND CUR- 
RENT MEAN 

REM IS PRINTED. 

LET Y = 1 

LET N = 0 

PRINT “SAMPLE =”; 

INPUT W 

IF W = 0 THEN 160 

LETN=N+1 

LET Y = Y*W 

LET G = YN1/N) 

PRINT “NUMBER OF SAMPLES = ”;N,“CURRENT 


SAMPLE = ”; W 
PRINT “CURRENT MEAN = ”; G 
СОТО 70 
PRINT 


PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 210 

STOP 

PRINT 

GOTO 50 

END 


GEOMETRIG PROGRESSION 


From the following information: first term, ratio of terms, anu | 
number of terms, this program computes the geometric progres- 
sion. 


FORMULA 
A, AR, AR2...,ARN-! 
EXAMPLE 
FIRST TERM = 
10 
RATIO OF TERMS = 
2 


2 
NUMBER OF TERMS = 
? 


5 
FOR TABLE, TYPE 1, IF NOT TYPE 0 
? 


1 


GEOMETRIC PROGRESSION 
TERM NUMBER TERM VALUE 
1 10 

2 20 

3 40 

4 80 

5 160 
SUM = 310 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

“END 
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GEOMETRIC PROGRESSION 


START 


PROMPT + INPUT 
VARIABLES 
PROMPT + INPUT 
TABLE COMMAND 


ISC=1? 


PRINT 
TABLE HEADER 


CONPUTER 
PROGRESSION 


[| 


OUTPUT 
KL 


ISC=1 


YES 
ISI=N- 1? > 


АТА 


| OUTPUT 
PROMPT + INPUT 
CONTINUE COMMAND, 
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GEOMETRIC PROGRESSION 


10 


REM THIS PROGRAM COMPUTES THE VALUES AND 
THEIR SUM 

REM OF А GEOMETRIC PROGRESSION 

PRINT "FIRST TERM =”; 

INPUT А 

PRINT "RATIO OF TERMS =”; 

INPUT R 

PRINT "NUMBER OF TERMS =”; 

INPUT N 

PRINT "FOR TABLE TYPE 1, IF NOT TYPE 0” 

INPUT C 

IF C = 1 THEN 130 

GOTO 160 

PRINT 

PRINT “GEOMETRIC PROGRESSION” 

PRINT "TERM МІ/МВЕЕ”;,“ТЕЕМ VALUE”: 

LETJ=0 

FORI=0TON-1 

ГЕТК = I +1 

LET L = A*(RfD 

LET ] =] +1, 

IF C = 1 THEN 230 

GOTO 240 

PRINT K,L 

NEXT I 

PRINT "SUM =”;] 

PRINT 

PRINT "TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT X 

IF X = 1 THEN 310 

STOP 

PRINT 

СОТО 30 

END 
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HARMONIG MEAN 


This program computes the harmonic mean of the samples entered 
by the user, until a 0 is entered for the sample. 


FORMULA 


EXAMPLE 
SAMPLE = 
? 


2 

N = 1 SAMPLE = 2 CURRENT MEAN = 2 
SAMPLE = 

? 

5 

N = 2 SAMPLE = 5 CURRENT MEAN = 2.86 
SAMPLE = 

? 


7 

М = 3 SAMPLE = 7 CURRENT MEAN = 3.56 
SAMPLE = 

? 

0 

ТҮРЕ 1 TO CONTINUE, 0 TO STOP 

? 


0 
*END 
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( START 
HARMONIC MEAN 


INITIALIZE 
VARIABLES 


PROMPT + INPUT 
SAMPLE 


YES 
PROMPT + INPUT 
NO CONTINUE COMMAND 
CALCULATE 


CURRENT 
MEAN 
YES 
OUTPUT 
CURRENT MEAN | NO 


HARMONIG MEAN 
10 REM THIS PROGRAM COMPUTES THE HARMONIC 
MEAN 
20 КЕМ OF THE SAMPLES ENTERED BY THE USER 
30 LETZ=0 
40 LETN=0 
50 PRINT “SAMPLE =”; 
60 INPUT X 
70 ТЕХ =0 THEN 130 
80 LETN=N+1 
900 | LETZzZ + (1/X) 
100 LETH=N/Z 
110 PRINT “N =”;N,“SAMPLE = ”;X, "CURRENT MEAN 
120 СОТО 50 
130 PRINT 
140 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP" 
150  INPUTL 
160 IF L=1 THEN 180 
170 STOP 
180 PRINT 
190 GOTO 30 
200 END 
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HARMONIC NUMBERS 


This program computes the first N harmonic numbers where N is 
entered by the user. 


FORMULA 
1, 1 + 1/2, 1 + 1/2 + 1/3, 1 + 1/2 + 1/3 + 1A, ... 

EXAMPLE 

MAXIMUM TERM NUMBER 

? 

35 

TERM NUMBER TERM VALUE 
1 1 
2 1.5 
3 1.83333 
4 2.08333 
5 2.28333 
6 2.45 
7 2.59285 
8 2.71785 
9 2.82896 
10 2.92896 
11 3.01987 
12 3.10321 
13 3.18013 
14 3.25156 
15 3.31822 
16 3.38072 
17 3.43955 
18 3.49510 
19 3.54774 
20 3.59773 
21 3.64535 
22 3.69081 
23 3.73429 
24 3.77595 
25 3.81595 
26 3.85442 
27 3.89145 
28 3.92717 
29 3.96165 
30 3.99498 
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TERM NUMBER TERM VALUE 


31 4.02724 
32 4.05849 
33 4.08879 
34 4.11821 
35 4.14678 
36 4.17456 


PROMPT + INPUT 
MAX TERM # 
INITIALIZE 
VARIABLES 
PRINT TERM # + 
ТЕЛИ МАЕЦЕ HARMONIC NUMBERS 


COMPUTE 
HARMONIC 
NUMBERS 


OUTPUT 
K, D 
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HARMONIC NUMBERS 


10 


90 


REM THIS PROGRAM COMPUTES HARMONIC 
NUMBERS 

PRINT "MAXIMUM TERM NUMBER” 

INPUT N 

LET K = 0 

LET D = 0 

PRINT “TERM NUMBER”, "TERM VALUE” 

ЕОКТ + ОТОК 

LETK 51 + 1 

LET С = ИК 

LI 01 = р + С 

PRINT К,р 

NEXT I 

PRINT 

END 


HARMONIC PROGRESSIONS 


This program computes from the following information the values of 
A and B, the difference and the number of terms desired. At the 
user's option a table of progressions may be generated. In either 
case the sum of the number of terms is produced. 


FORMULA 


A A А A 
B,B+D,B+2D,.. B + (N — DD 

EXAMPLE 

VALUE OF А = 

? 

10 

VALUE OF B = 

? 

2 

DIFFERENCE = 

2 

3 

NUMBER OF TERMS = 

? 

20 


FOR TABLE TYPE 1, IF NOT TYPE 0 
? 


1 


HARMONIC PROGRESSION 
TERM NUMBER TERM VALUE 
1 5 

2 2 

3 1.25 

4 ‚90901 
5 ‚714286 
6 «588235 
7 .5 

8 ,434783 
9 -384615 
10 ‚344828 
11 .3125 
12 ‚280714 
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TERM NUMBER 


SUM = 14.4078 


TERM VALUE 


.263158 
.243802 
.227273 
.212766 
‚2 

‚188679 
‚178571 
‚169492 


afe afe XXX: afe 3k XC X# ЖЕЖ ЖЖ ЖЖ $ 


ТҮРЕ 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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HARMONIC PROGRESSIONS 


PROMPT + INPUT 
A 


PROMPT + INPUT 
B 


PROMPT + INPUT 
D 


PROMPT + INPUT 
N 


PROMPT + INPUT 


COMMAND 
FOR TABLE 
MES OUTPUT 
TABLE HEADER 
CALCULATE 


TERM NUMBER 
+ TERM VALUE 


YES OUTPUT 
di NUMBER -- VALVE 
å A OUTPUT 
SUM 


CONTINUE ` 
MESSAGE + 
INPUT COMMAND 


YES 


ს 
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HARMONIC PROGRESSIONS 


10 


94 


REM THIS PROGRAM COMPUTES Å SERIES OF 
HARMONIC 

REM PROGRESSIONS 

PRINT “VALUE OF A =” 

INPUT Å 

PRINT “VALUE OF B =" 

INPUT B 

PRINT "DIFFERENCE =” 

INPUT D 

PRINT “NUMBER OF TERMS =” 

INPUT N 

PRINT “FOR TABLE TYPE 1, IF NOT TYPE 0 

INPUT С 

IF С = 1 THEN 150 

GOTO 170 

PRINT “HARMONIC PROGRESSION” 

PRINT “TERM NUMBER","TERM VALUE" 

LETJ=0 

FORI=0toN- 1 

LETK = 1 +1 

LET L = А/В + (I*D)) 

LETJ=J+L 

IF C = 1 THEN 240 

GOTO 250 

PRINT KL 

NEXT I 

PRINT “SUM = "jJ 

PRINT «КЕК ЕКЕ ЕЕЕ 0? 

PRINT “ТҮРЕ 1 ТО CONTINUE, 0 ТО STOP" 

INPUT X 

IF X = 0 THEN 320 

STOP 

PRINT 

GOTO 30 

END 


HYDROCARBON COMBUSTION 


This program simulates the burning of a hydrocarbon compound; 
complete combustion is assumed, and the option of excess air is 
available. 

FORMULAE 

AIR = 1 + % EXCESS AIR/100 

О = C + 5 + H/4 – 0/2 

AF(MOLES) = 0:(4.762)AIR 

AF(MASS) = 1.8094(AF MOLES)/.7507C + 0.063H 

+ 2.0045 + 0.875N + О 

TOTAL MOLES = 0:(4.762 AIR) + НА + 0/2 + № 
VOLUME % CO: = 100C/M 

VOLUME % SO; = 100S/M 

VOLUME % H:0 = 100H/2M 

VOLUME % Ог = 100(AIR — 1)02/M 

VOLUME % N2 = (100((3.762)AIR(02) + N/2)/M 

EXAMPLE 

RUN 

Е OR INSTRUCTIONS TYPE YES, IF МОТ TYPE NO 


МО 

ENTER CARBON(C), HYDROGEN(H), ОХҮСЕМ(О), SUL- 
PHUR(S), NITROGEN(N) IN THAT ORDER 

? 


1,4,0,0,0 
ENTER PERCENTAGE EXCESS AIR, IF ZERO 
ENTER 0, EXAMPLE: — 34% ENTER AS 34 


0 

AIR-FUEL RATIO WITH RESPECT TO MOLES = 9.52 
AIR-FUEL RATIO WITH RESPECT TO MASS = 17.19 
TOTAL MOLES OF PRODUCTION = 10.52 
"SHIPERCENTAGE OF VOLUME OF PRODUCETS*****# 
CARBON DIOXIDE = 9.50% 

SULPHUR DIOXIDE = 0.0% 

WATER = 19.0% 

OXYGEN = 0.0% 

NITROGEN = 71.49% 

“***** COMPLETE COMBUSTION ASSUMED****»» 
TO TRY NEXT COMPOUND TYPE YES 

10 STOP TYPE NO 

NO 

COMBUSTION SAYS GOOD-BYE 

*END 
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HYDROCARBON COMBUSTION 
| START 
PROMPT + INPUT 
INSTRUCTION 
COMMAND 


YES 
< I$ = "YES" 3 


IS I$="NO" ^ 
YES 
COMPUTE MASS 
NOTES + 
PERCENTAGES 


OUTPUT 
RESULTS 


PROMPT + INPUT 
CONTINUE COMMAND 


А 


NO 


| STOP 


С OUTPUT ` 
INSTRUCTIONS 


HYDROCARBON COMBUSTION 


10 
20 


30 


REM THIS PROGRAM COMPUTES THE PERCENT- 
AGES OF THE 

REM PRODUCTS PRODUCED BY HYDROCARBON 
COMBUSTION _ 

PRINT “ЕОЕ INSTRUCTIONS TYPE YÉS, IF NOT 
TYPE NO” 

INPUT I$ 

IF I$ = “YES” THEN 90 

IF I$ = “NO” THEN 130 

PRINT “INVALID COMMAND” 

GOTO 30 

PRINT “THE AMOUNTS OF EACH ELEMENT MUST 

BE” 

PRINT “ENTERED, EVENIF THE AMOUNTIS ZERO” 

PRINT “EXAMPLE: - METHANE (CH4) MUST BE 
ENTERED AS” 

PRINT “C;1, H;4, 0;0, $;0, N;0” 

PRINT 

PRINT “ENTER CARBON(O, HYDROGEN(H), OXY- 
GEN(O)” 

PRINT “SULPHUR(S), NITROGEN(N) IN THAT 
ORDER” 

INPUT C,H,O,S,N 

PRINT “ENTER PERCENTAGE EXCESS AIR, IF 
ZERO” 

PRINT "ENTER 0, EXAMPLE: — 34% ENTER AS 34” 

INPUT E 

LET E = 1 + (E/100) 

LET 02 2 C +S + (H/4) – (0/2) 

LET A = 02*E*4.762 

LET А1 = 1.8094*A 

LET F = (0.7507*C) + (0.063*H) + (2.004*S) 

LET Е = (0.875*N) + O + Е 

LET Al = Al/F 

LET M = A + (НРА) + (0/2) + (N/2) 

LET C2 = (C*100)/M 

LET 52 = (S*100)/M 

LET H2 = (H*100)/(2*M) 

LET 03 = (100*(E- 1)*02)/M 

LET № = (100*((3.762*E*02) +(N/2)))/M 

PRINT 
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PRINT *AIR-FUEL RATIO WITH RESPECT TO 
MOLES =”;А 

PRINT “AIR-FUEL RATIO WITH RESPECT TO 
MASS = ”;A1 

PRINT “TOTAL MOLES OF PRODUCT = ”;M 

PRINT “******PERCENTAGE VOLUME OF PRO- 
DUCTS******” 

PRINT “CARBON DIOXIDE = ”;C2;” % " 

PRINT “SULPHUR DIOXIDE = ”;S2;” % ” 

PRINT “WATER = ”;H2;” % ” 

PRINT “OXYGEN = ”;03;” % ” 

PRINT “NITROGEN = ”;N2;” % ” 

PRINT “*"****COMPLETE COMBUSTION AS- 
SUMED******” 

PRINT 

PRINT “TO TRY NEXT COMPOUND TYPE YES” 

PRINT “TO STOP TYPE NO” 

INPUT L$ 

IF L$ = “YES” THEN 510 

PRINT “COMBUSTION SAYS GOOD-BYE" 

STOP 

PRINT 

GOTO 30 

END 


HYPERBOLIC FUNCTIONS 


This program computes the following hyperbolic trigonometric func- 
tions: sinH, cosH, tanH, cscH, secH, cotH. 


FORMULAE 
. е-е”: " 1 
sinHx = a = cscHx = SSH 
_ C+6C24+ = 1 
cosH х = туе secH x = EHE 
ta С здр с = 1 
tanH x = aa cotH 4 = tan x 
EXAMPLE 
TYPE А NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 
1 
Х= 
? 
4 
SINH 4 = 27.2899 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


2 

X= 

? 

5 

COSH 5 = 74.2099 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
2 


3 

A= 

? 

‚02 

ТАМН .02 = .019997 
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TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 

ТҮРЕ А NUMBER 1 TO 6 FOR FUNCTION DESIRED 
გ 

4 

Х= 

? 

3.5 

CSCH 3.5 = .060449 

TYPE 1 TO CONTINUE, 0 TO STOP 

? 


1 
TYPE А NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


5 

AE 

12 

SECH 12 = .000012 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
ТҮРЕ А NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


Су * 


Х = 

.З 

СОТН .3 = 3.43273 

ТҮРЕ 1 ТО CONTINUE, 0 ТО STOP 
? 

0 

*END 
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© HYPERBOLIC FUNCTIONS 
PRINT 
OPTIONS 
PROMPT + INPUT 
DESIRED OPTION 
CALCULATE 
DESIRED еще | gou 
OPTION 


OUTPUT 
RESULT OF OPTION 
PROMPT + INPUT 
CONTINUE COMMAND 


кы 
e 


HYPERBOLIC FUNCTIONS 


10 REM THIS PROGRAM COMPUTES HYPERBOLIC 
FUNCTIONS 
20 PRINT SINH (1)” 
30 PRINT “COSH (2) 
40 PRINT "TANH (3)” 
50 PRINT “ССН (4)” 
60 PRINT “SECH 65)” 
70 PRINT “COTH 66)” 
80 PRINT "TYPE А NUMBER 1 TO 6 FOR FUNCTION 
DESIRED” 
Y  INPUTC 
100 ONC GOTO 110,160,200,270,320,370 
ПО GOSUB 490 
120 GOSUB 520 
130 LETZ=Y/2 
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PRINT “SINH”;X; =“ ;Z 
СОТО 420 

GOSUB 490 

GOSUB 540 

LET Z = B/2 

PRINT *COSH”;X;" = ”;Z 
СОТО 420 

GOSUB 490 

GOSUB 520 

GOSUB 540 

LET 7, = Y/B 

PRINT “TANE”; „?? == W YA 
GOTO 420 

GOSUB 490 

GOSUB 520 

LET Z = 1/(Y/2) 

PRINT “CSCH”; «27 = ША 
СОТО 420 

GOSUB 490 

GOSUB 540 

LET Z = 1/(В/2) 

PRINT “ЗЕСН”.Х;“ = ”;Z 
GOTO 420 

GOSUB 490 

GOSUB 520 

GOSUB 540 

LET Z = 1/(Y/B) 

PRINT “СОТН”;Х;“ = ”;Z 
PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 470 
STOP 

PRINT 

GOTO 80 

PRINT “X =” 

INPUT X 


RETURN 

LET Y = EXP(X) — ЕХР(- X) 
RETURN 

LET В = EXP(X) + EXP(- X) 
RETURN 

END 


I CHING (THE CHINESE BOOK OF CHANGES) 


The I Ching is a collection of 64 hexagrams used to determine 
Possible future events. It was inspired by the ancient Chinese. Each 
hexagram consists of six lines which may be broken (- -) or 
unbroken(---). The user of the I Ching may throw coins or sticks to 
produce the six lines. This program computes the six lines randomly 
on an algorithm using the date and time. The meanings of each of the 
possible 64 hexagrams may be looked up in the Chinese Book of 
Changes (The I Ching). 


EXAMPLE 


RUN 
ENTER DATE AS M,D,Y 
? 


8,28,1977 
ENTER TIME AS H,M(24 HOUR CLOCK) 
ә 


9,56 


TO CONTINUE ТҮРЕ Ү, IF NOT TYPEN 
? 
N 


THE I CHING SAYS GOOD-BYE 
*END 
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| CHING 


| START | 


PROMPT + INPUT 
DATE + TIME 


COMPUTE М 


COMPUTE 
C(I) 


YES 


PRINT 
JEXAGRAM 
()=10R2 


ee YES / PROMPT + INPUT 
გ CONTINUE COMMAND 


YES 


IS L$ = "4" 
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I CHING 


10 КЕМ THIS PROGRAM SIMULATES THE I CHING 
20 RANDOMIZE 

30 PRINT “ENTER DATE AS M,D,Y" 

40 INPUT M,D,Y 

50 PRINT “ENTER TIME AS H,M(24 HOUR CLOCK)” 
60 INPUT H,Mi 

70 LETN = M + (0/30) + (Y/100) + H + (M1/60) 
80  FORI=1T06 

90 LET K = N*RND(0) 
100 LET K = K — INT(K) 
110 LET Cd) = 1 + INT@*K) 
120 NEXTI 
130 ЕОКЇ=1ТО6 
140 IF C(D = 1 THEN 170 


150 PRINT “---” 
160 C010 180 
170 PRINT "--" 
180 NEXT I 

190 PRINT 


200 PRINT “TO CONTINUE TYPE Y, IF NOT TYPEN” 
210 INPUT L$ 

220 IF L$ = “Y” THEN 250 

230 PRINT “THE I CHING SAYS GOOD-BYE" 

240 STOP 


250 PRINT 
260 GOTO 30 
270 END 
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INTEGRAL BETWEEN TWO LIMITS 
This program computes the integral between the limits of finite 
points A and В for single-valued function f(x) by the six-point 
Gauss-Legendre quadrature formula. 


FORMULA 
i СФ b+ 
| (ოფ = 234 у D. (СФ — a) +b +4) 
a a -2 
iz] 
EXAMPLE 
Where f(x) = 13*X12 — 6*X12 + SINX) + ИХ) 
ENTER ENDPOINTS A,B 
: 
— 1,1 


INTEGRAL = 4.28786 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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INITIALIZE 
CONSTANTS 


PROMPT + INPUT 
A. B 


CALCULATE FUNCTION 
E SUBROUTINE 


INTEGRAL. 


INTEGRAL BETWEEN TWO LIMITS 


INTEGRAL BETWEEN TWO LIMITS 
10 REM THIS PROGRAM COMPUTES THE INTEGRAL 
BETWEEN 


20 REM THE LIMITS А AND В OF F(X) 
30 LET C1 = .238619 

40 LETC2=Cl 

90 LET СЗ = .661209 

60 LET C4 = C3 

70 LET C5 = .932470 

80 ГЕТ C6 = C5 

90 LET D1 =.467914 
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LET D2 = .360762 

LET D3 = .171324 
LET J = 0 

PRINT “ENTER ENDPOINTS A,B” 
INPUT A,B 
LETY-B-A 
LETZ=B+A 

LET X = ((C1*Y) + Z)/2 
GOSUB 500 

LET N = DI*Q 
LETJ=J+N 

LET Х = ((C2*Y) + Z)/2 
GOSUB 500 

LET N = D1*Q 
LETJ=J+N 

LET X = ((C3*Y) + Z)/2 
GOSUB 500 

LET N = D2*Q 
LETJ=J+N 

LET X = ((C4*Y) + Z)/2 
GOSUB 500 

LET N = D2*Q 
LETJ=J+N 

LET X = ((C5*Y) + Z)/2 
GOSUB 500 

LET N = D3*Q 
LETJ=J+N 

LET X = ((C6*Y) + Z)/2 
GOSUB 500 

LET N = D3*Y 
LETJ=J+N 

LET G = (Ү/2)*] 
PRINT "INTEGRAL =”;С 
PRINT 


PRINT “ТҮРЕ 1 TO CONTINUE, 0 TO STOP” 


INPUT L 

IF L = 1 THEN 480 
STOP 

PRINT 

GOTO 120 


LET Q = 13*X?2 – 6*X12 + SINX) + ИХ 


RETURN 
END 


INTERACTIVE GROWTH PATTERN 


This program computes a growth pattern between two quantities 
called X and Y, where the existence of Y depends on the destruction 
of an X, but to be just, X can propagate. 


EXAMPLE 
NUMBER OF DESTROYERS (Y) = 
2 


201 

NUMBER OF CREATORS (X) = 
3 

347 

PROPAGATION RATE OF X = 
2 


6 
CHANCE OF MEETING BETWEEN X AND Y = 
3 


01 
TIME BETWEEN SAMPLE DISPLAYED = 


5 


MAXIMUM GENERATIONS = 

2 

10 

INTERACTIVE GROWTH PATTERN 
CREATOR DESTROYER 
1039 449 

1822 2558 

0 24600 

0 12300 

0 6150 

0 3075 

0 1587 

0 768 

0 384 

0 192 


MAXIMUM NUMBER OF GENERATIONS REACHED 


FOR FURTHER GENERATIONS, TYPE 1, IF NOT 0 
? 


1 
MAXIMUM GENERATIONS = 
2 
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Ooooooook 


ALL GROWTH ENDED 

NUMBER OF GENERATIONS = 18 

FOR NEXT PATTERN TYPE 1, 0 TO STOP 
? 


0 
“END 


PROMPT + INPUT 
SYSTEM VARIABLES 


PRINT 
TABLE HEADER 


CALCULATE 
GROWTH 


YES 
PRINT 
MAX GENERATIONS 
REALIZED 
YES ВР GENERATIO 
> CONTINUE 
OMMAND 


| PRINT 
GROWTH ENDED YES 
NO 


OF GENERATION 
PROMPT + INPU 
CONTINUE COMMAND, 


YES 
INTERACTIVE GROWTH PATTERN | 
NO 


INTERACTIVE GROWTH PATTERN 


10 


20 


REM THIS PROGRAM COMPUTES THE GROWTH 
PATTERN BETWEEN 

REM A QUANTITY Y THE DESTROYER AND A 
QUANTITY X 

REM THE CREATOR. X CAN PROPAGATE, ANDONA 

REM CHANCE METTING BETWEEN X AND Y, X IS 
DESTROYED, 

REM THUS INCREASING THE NUMBER OF YS. 

PRINT “NUMBER OF DESTROYERS (Y) =”; 

INPUT Y 

PRINT “NUMBER OF CREATORS (X) =”; 

INPUT X 

PRINT “PROPAGATION RATE OF X =”; 

INPUT Z 


PRINT “CHANCE OF METTING BETWEEN X AND Y 


INPUT A 

PRINT “TIME BETWEEN SAMPLES =”; 
INPUT H 

PRINT “MAXIMUM GENERATIONS =”; 
INPUT K 

LET J =0 

PRINT 

PRINT “INTERACTIVE GROWTH PATTERN” 
PRINT 

PRINT “CREATOR”, “DESTROYER” 

IF J = K THEN 470 

LETJ=J+1 

LET B = A*X*Y 

LET C = (Y — B)*H) + Y 

IF C < 0 THEN 390 

LETY=C 

LET D = (((X*Z) - B)*H) + X 

IF D < 0 THEN 140 


LET M = INT(X) 
LET N = INT(Y) 
PRINT M,N 

IF M = 0 THEN 370 
GOTO 230 

IF N = 0 THEN 430 
GOTO 230 
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390 ІЕТҮ-0 

400 СОТО 290 

410 LETX=0 

420 СОТО 320 

430 — PRINT "ALL GROWTH ENDED” 

440 — PRINT “NUMBER OF GENERATIONS = ";J 

450 PRINT | | 

460 СОТО 560 

470 PRINT “MAXIMUM NUMBER OF GENERATIONS 


REACHED" 
480 PRINT 
490 PRINT “FOR FURTHER GENERATIONS TYPE 1, IF 
NOT 0" 
500 INPUT W 


510 IF W=1 THEN 530 
520 СОТО 560 
530 PRINT “MAXIMUM GENERATIONS =”; 


540 INPUT K 

550 GOTO 230 

560 PRINT 

570 PRINT “FOR NEXT PATTERN ТУРЕ 1, 0 TO STOP" 
580 INPUT W 

590 IF W=1 THEN 610 

600 STOP 

610 PRINT 

620 СОТО 60 


630 END 
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INVERSE HYPERBOLIC FUNCTIONS 


This program computes the following hyperbolic trigonometric func- 
tions: sinH^ °, cosH- !, tanH-', cscH- 1, secH-! coti! 


FORMULAE 
sin H- x = In(X + (х? + 1)'5) 


cos Н- ‘х = ик + (x? — VI 
va, A | 
tan Н = 2 т\т = 
1 
сѕс Н х = sin H {у 
sec H`  — cos н-(2) 


1 
cot H- k= tan H- le 


EXAMPLE 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


1 

Х = 

? 

12 

SINH — 1 12 = 3.17979 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


2 

Х = 

? 

45 

СОЗН - 145 = 4.49969 

TYPE 1 ТО CONTINUE, 0 TO STOP 
? 


1 
ТҮРЕ A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


3 
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TANH — 1.00055 == .00055 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


4 

х= 

? 

23 

ССН — 1 23 = .04346 

TYPE 1 TO CONTINUE, 0 ТО STOP 
? 


1 

TYPE А NUMBER 1 TO 6 FOR FUNCTION DESIRED 
5 

X => 

? 

„125 

SECH — 1.125 = 2.76866 

TYPE 1 TO CONTINUE, 0 TO STOP 

? 

1 

TYPE A NUMBER 1 TO 6 FOR FUNCTION DESIRED 
? 


COTH — 18 = .12566 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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INVERSE HYPERBOLIC FUNCTIONS 


PRINT 
OPTIONS 
PROMPT + INPUT 
DESIRED OPTION 


CALCULATE | OPTION PROMPT + INPUT 
EA MN SUBROUTINE X 


OUTPUT 
RESULT OF OPTION 
PROMPT -- INPUT 
CONTINUE COMMAND 


INVERSE HYPERBOLIC FUNCTIONS 


10 REM THIS PROGRAM COMPUTES INVERSE HYPER- 
BOLIC FUNCTIONS 

20 — PRINT “SINH — 1 (1)" 

30 PRINT “COSH - 1 (2)" 

40 PRINT "nTANH- 1(3)" 

90 PRINT “ССН - 1 (4)” 

60 PRINT “SECH - 1 (5)" 

70 PRINT “COTH — 1 (6)" 
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PRINT “ТҮРЕ А NUMBER 1 TO 6 FOR FUNCTION 
DESIRED” 

INPUT C 

ON C GOTO 110,150,190,230,280,330 

GOSUB 440 

GOSUB 470 

PRINT “SINH — 1;X;” = ”;Z 

GOTO 370 

GOSUB 440 

GOSUB 490 

PRINT “COSH — ІХ” =”;Z 

GOTO 370 

GOSUB 440 

GOSUB 510 

PRINT “TANH ~ 1”;X;” = ”;Z 

GOTO 370 

GOSUB 530 

GOSUB 470 

LET X = А 

PRINT “ССН — 1”;X;” = ”;Z 

GOTO 370 

GOSUB 530 

GOSUB 490 

LET X = A 

PRINT “SECH — 15X;" = ”;Z 

GOTO 370 

GOSUB 530 

GOSUB 510 

LET X = A 

PRINT “COTH - 1;X;” = ”:7 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 420 

STOP 

PRINT 

GOTO 80 

PRINT “X =”; 

INPUT X 

RETURN 

LET Z = LOG + SQR((Xt2) + 1) 

RETURN 

LET Z = LOG(X + SARKAM) — D) 


RETURN 

LET 2 = (LOG((1 + X/(1 — Х)))/2 
RETURN 

PRINT “X =”; 

INPUT X 

LET A = X 

LET X = 1/X 

RETURN 

END 
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L-PAD MINIMUM LOSS SYSTEM 


In systems where two resistive stages must be coupled, a minimum 
loss L-pad can be used for matching. A typical application for this pad 
would be to couple inputs and outputs of audio circuits. The user 
inputs the two impedances Zi and 22; the program responds with the 
L-pad resistors R: and Re, and also the system loss in decibels. 


FORMULAE 


L PAD MIN LOSS 


271 > 72 


Р 2 = / 1 — = 
LOSS = m: 2 ES -1) 


EXAMPLE 

1ST IMPEDANCE 

? 

300 

2ND IMPEDANCE 

? 

75 

COMPONENTS OF THE L-PAD 
RESISTOR 1 = 259.807 
RESISTOR 2 = 86.6025 

LOSS IN DECIBELS = 11.4389 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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L-PAD MINIMUM LOSS SYSTEM 


PROMPT + INPUT 
“IMPEDANCES” 


CALCULATE 
OOMFONENIG 


JT AND T SYS. 


PRINT > 
"COMPONENTS" 


OUTPUT 
RESISTOR VALUES 
OUTPUT 
LOSS IN DECIBELS 
PROMPT + INPUT 
CONTINUE COMMAND 


od 
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L-PAD MINUMUM LOSS SYSTEM 


10 
20 


120 


REM THIS PROGRAM COMPUTES THE VALUES OF 
REM THE TWO RESISTANCES REQUIRED TO CON- 


STRUCT Å 
REM L-PAD OF MINIMUM LOSS 
PRINT “1ST IMPEDANCE” 
INPUT 21 
PRINT “2ND IMPEDANCE” 
INPUT 272 
LET R1 = ZI*SQR( - (Z2/Z1)) 
LET R2 = Z2/SQR(1 – (Z2/Z1)) 
LET M = SQR(Z1/Z2) + SQR(Z1/Z2) - 1) 
LET L = 20*(LOG(M)/LOG(10)) 
PRINT “COMPONENTS OF THE L-PAD" 
PRINT “RESISTOR 1 = "; КІ 
PRINT “RESISTOR 2 = ”;R2 
PRINT “LOSS IN DECIBELS = ”;L 
PRINT 
PRINT “TYPE 1 TO CONTINUE, 0 TO STOP" 
INPUT X 
IF X = 1 THEN 210 
STOP 
PRINT 
GOTO 40 
END 


LINEAR INTERPOLATION 


If Y is a function of X, and Yi — Y> аге the values of the function at 
Xi — X», respectively, Y may be computed for any valus of X. 


FORMULA 


LINEAR INTEPOLATION 
106) 


fx) 


f(x) 


f(x) € (xz – x) (fx) He — x1 (f(x) 


X2 — XI 


XI X2 


KNOWN VALUE OF X (X1,X2) = 
2 


10,50 

KNOWN VALUES OF Y (F(X1),F(X2)) = 
? 

15,55 

INTERPOLATE F(X) AT X = 

? 

60 

INTERPOLATED F(X) = 65 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 

KNOWN VALUE OF Х (X1,X2) = 

? 

43,98 ` 
KNOWN VALUES OF Y (F(X1), F(X2)) = 

: | 


86,196 

INTERPOLATE F(X) AT X = 

2 

1234 

INTERPOLATED Е(Х) = 2468 

TYPE 1 ТО CONTINUE, 0 TO STOP 
3 

0 

“END 
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LINEAR INTERPOLATION 


FROMPT + INPUT 
KNOWN VALUES 


PROMPT + INPUT 
X 


CALCULATE 
F(x) 


OUTPUT 
F (x) 


PROMPT + INPUT 
CONTINUE COMMAND 
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LINEAR INTERPOLATION 


10 


20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 


REM THIS PROGRAM COMPUTES LINEAR INTER- 
POLATION 

PRINT "KNOWN VALUE OF X (X1,X2) =”; 

INPUT X1,X2 

PRINT "KNOWN VALUES OF Y (F(X1),F(X2)) =”: 

INPUT Y1,Y2 

PRINT “INTERPOLATE F(X) AT X =”; 

INPUT X 

LET G = ((X2 — X)*Y1) + (X - XD*Y2) 

ГЕТЕ =GAX2 ~ X1) 

PRINT “INTERPOLATED F(X) =”;Е 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 160 

STOP 

PRINT 

GOTO 20 

END 
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LOGARITHMS OF ANY BASE 


This simple program allows the user to compute the value of a 
logarithm to any base. The number X and the base Y must both be 
positive if machine error is not to occur. 


FORMULA 


In x 
logyx = 


In y 


EXAMPLES 

BASE = 

? 

16 

X= 

? 

54 

LOG 54 = 1.43872 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


23 

LOG 23 = .494529 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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LOGARITHMS OF ANY BASE 


/ PROMPT + INPUT 
BASE | 
PROMPT + INPUT 

X 


CALCULATE 
LOG Y* 


OUTPUT 
LOG X 
PROMPT + INPUT 
CONTINUE COMMAND 
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MEN мени kaa tate an nan 


LOGARITHMS OF ANY BASE 


10 
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REM THIS PROGRAM WILL COMPUTE THE LOG 

REM OF ANY POSITIVE NUMBER X, TO ANY POSI- 
TIVE 

REM BASE Y 

PRINT "BASE =" 

INPUT Y 

PRINT “X =” 

INPUT X 

LET J = LOGQ/LOG(Y) 

PRINT "LOG %X;" = ”;J 

PRINT “ТҮРЕ 1 TO CONTINUE, 0 TO STOP" 

INPUT L 

IF L = 1 THEN 140 

STOP 

PRINT 

GOTO 40 

END 


MEAN, STANDARD DEVIATION, 
STANDARD ERROR FOR GROUPED DATA 


This program generates the mean, standard deviation and standard 
error for grouped data until the user enters а 0 for the value of the 
frequency. 


FORMULAE 


> fixi 


Mean x — 


2 fi 
S 
VE fi 


АБ x — (SAE 
27-1 


Standard error Sx = 


Standard deviation $ = 


EXAMPLE 
ENTER SAMPLE VALUE AND FREQUENCY 
? 


5,2 
ENTER SAMPLE VALUE AND FREQUENCY 
? 


10,3 


ENTER SAMPLE VALUE AND FREQUENCY 
? 

6,1 

ENTER SAMPLE VALUE AND FREQUENCY 
? 

0,0 

NUMBER OF SAMPLES ENTERED = 3 
MEAN = 7.67 


STANDARD DEVIATION = 5.77 
STANDARD ERROR = 2.36 

TYPE 1 TO CONTINUF, 0 TO STOP 
? 


0 
*END 
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| MEAN, STANDARD DEVIATION, AND 
| STANDARD ERROR FOR GROUPED DATA 


мл”) 

INITIALIZE 

VARIABLES 
PROMPT = INPUT 
SAMPLE = FREO 


ISF<=0? DE 


NO 
UPDATE: COMPUTE 
CALCULATIONS OUTPUT 


OUTPUT 
"STAT" DATA 


PROMPT + INPUT 
CONTINUE COMMAND 


NO | 


MEAN, STANDARD DEVIATION, AND 


STANDARD ERROR FOR GROUPED DATA 
10 КЕМ THIS PROGRAM COMPUTES THE MEAN, 


STANDARD 

20 КЕМ DEVIATION AND STANDARD ERROR FOR 
GROUPED DATA 

30 LETA=0 

40 LETB=0 

0 LETC=0 

6 LETD=0 


70 PRINT “ENTERSAMPLE VALUE AND FREQUENCY"; 
80 INPUT X,F 
90 IFF < =0THEN 170 
100  LETA=A+1 
110 LETB=B+F 
120 LET G = ХЕ 
130 LETC=C+G 
140 LET E = (X42)*F 
150 LETD=D+E 
160 GOTO 70 
170 LETH = C/B 
180 LETI=SQR(D — (B*(Ht2)) 
190 LET J = I/SQR(B) 
200 PRINT 
210 PRINT "NUMBER OF SAMPLES ENTERED = ”;A 
220 PRINT “MEAN = ”;H 
230 PRINT "STANDARD DEVIATION =”; 
240 PRINT “STANDARD ERROR = ”;J 


200 PRINT 

260 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
2/0 INPUT L 

280 IFL = 1 THEN 300 

290 STOP 

300 PRINT 

310 GOTO 30 

320 END 
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MOMENTS, SKEWNESS AND KURTOSIS 


This program computes the first four moments where the first 
moment is the mean of the distribution and the second moment is the 
variance. Skewness is the departure of a frequency distribution from 
symmetry, and kurtosis is а property of distribution that expresses 
its relative peakedness. 


FORMULAE 


20 М=М= У #4 T 
RDAJ — mS 3 | 
ЗМ = Из =— xÉ -— rA xi? +2ჯ3 


азм =M lo Sat D Date TP Rate 8 


Мз 

SKEWNESS = yi= TV 
M2? 
Ма 

KURTOSIS y 2 =: or 
M2 

EXAMPLE 

NUMBER OF SAMPLES = 

? 

5 

SAMPLE = 

? 

12 

SAMPLE = 

5 

3 

SAMPLE = 

? 

4 


130 


SAMPLE = 
? 


5 
SAMPLE = 
? 


4 

IST MOMENT = 5.6 

2ND MOMENT = 10.64 

3RD MOMENT = 47.2319 

4TH MOMENT = 347.331 

MOMENT COEFFICIENTS 
SKEWNESS = 1.36089 KURTOSIS = 3.06803 
«ЖЖЖ ke ЖЖ KEKE 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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MCMENTS, SKEWNESS, AND KURTOSIS 


INITIALIZE 
А, В, C....T0 O 


PROMPT + INPUT 
AMPLES 


= 
C 
= 
თ 
m 
JJ 
О 
TI 


PROMPT + INPUT 
SAMPLES 


у 


YES 


CALCULATE 
MOMENTS + 
COEFFICIENTS 


OUTPUT 
MOMENTS + 
COEFFIGIENTS 


CONTINUE 
MESSAGE + INPUT 


H 


NO წ 


MOMENTS, SKEWNESS, AND KURTOSIS 


10 


20 


REM THIS PROGRAM COMPUTES THE VALUES OF 
THE 

REM FIRST 4 MOMENTS, SKEWNESS AND KUR- 
TOSIS 

LET A = 0 

LET B = 0 

LET C = 0 

LET D = 0 

PRINT “NUMBER OF SAMPLES =” 

INPUT N 

FOR I=1TON 

PRINT “SAMPLE = ” 

INPUT X 

LETA=A+X 

LET В = B + (X12) 

LET C = C + (X13) 

LET D =D + (XM) 

NEXT I 

LET J = A/N 

LET E = (B/N) — (42) 

LET Е = (C/N) — ((3*J*B)/N) + (2*(13)) 

LET G = (D/N) — ((4*J*C)/N) 

LET H = G + ((6*012)*BY/N) — (3*(14)) 

LET K = F/(E%(3/2)) 

LET L = H/(ET2) 

PRINT “IST MOMENT = ”;J 

PRINT “2ND MOMENT = ”;Е 

PRINT “3RD MOMENT = ”;F 

PRINT “ТН MOMENT = ”;H 

PRINT “MOMENT COEFFICIENTS” 

PRINT “SKEWNESS = ”;K,“KURTOSIS = 5L 

PRINT I##XX%XXXXXXXXM#XXX%XXXX7#X1? 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT Z 

IF Z = 1 THEN 350 

STOP 

PRINT 

GOTO 30 

END 
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NO REPETITIONS PROBABILITY 


The user dictates the size of მ population to be determined for a “No 
Repetitions” probabiity. 


FORMULA 


P = ( -#)(-=)- M 


where M > N> 1 


EXAMPLE 


ЖАКЕ ЖЖЖ pie ke KH ЖЖЖ 


TOTAL POPULATION 
? 

56 

SIZE OF SAMPLE 

? 


2 

PROBABILITY = .982143 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 


ЖЕК ж 3 ЖЕЖ ЖЕЖ Еж 


TOTAL POPULATION 
? 


9 
SIZE OF SAMPLE 
? 


4 

PROBABILITY = .460905 

ТҮРЕ 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 
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NO REPETITIONS PROBABILITY 


PROMPT + INPUT 
TOTAL POPULATION 


PROMPT + INPUT 
SIZE OF SAMPLE 


CALCULATE 
PROBABILITY 


OUTPUT 
PROBABILITY 
PROMPT + INPUT 
CONTINUE COMMAND, 


OX? 
О 
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NO-REPETITIONS PROBABILITY 
10 REM THIS PROGRAM COMPUTES THE “NO REP- 


ETITIONS" 
20 REM PROBABILITY OF A SAMPLE 
30 PRINT “жи 
35 PRINT “TOTAL POPULATION” 
40 INPUT M 
50 PRINT “SIZE OF SAMPLE” 
60 INPUTN 
70 LETJ=1 


80  FORI=1TON-1 
90  LETK-1- (ИМ) 
100  LETJ=JK 


110 = NEXTI 

120 PRINT "PROBABILITY = ";J 

130 PRINT 

140 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
150 INPUT L 

160 IFL=1 THEN 30 

170 STOP 

180 END 
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NUMBER GUESS GAME 


The object of this game is to guess in as few tries as possible the 
number chosen at random by the computer. (Hint: Use а binary 
search pattern.) 


EXAMPLE 


Å RANDOM NUMBER HAS BEEN PICKED 
TRY GUESSING IT, HINT THE NUMBER 
IS FROM 1 TO 100 

GOOD LUCK!!! 

YOUR GUESS IS = 

? 

50 

TOO HIGH, TRY AGAIN 

YOUR GUESS IS = 

2 

25 

TOO HIGH, TRY AGAIN 

YOUR GUESS IS = 

2 


12 

ТОО LOW, TRY AGAIN 
YOUR GUESS IS = 

? 


18 

TOO LOW, TRY AGAIN 

YOUR GUESS IS = 

? 

20 

NOT BAD!!!-YOU GOT IT!!! 

YOUR NUMBER OF TRIES WERE 5 


IF YOU WANT TO TRY AGAIN TYPE 1 
IF NOT TYPE 0 
? 


0 
“END 
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NUMBER GUESS GAME 


T 


DERIVE 
RANDOM NUMBER 
PRINT 
START MESSAGE 


PROMPT + INPUT 
GUESS 


INCREMENT 
| GUESS COUNTER | WINNING MESSAGE 


OUTPUT 
NUMBER OF 
GUESSES 


PROMPT + INPUT 
CONTINUE 


COMMAND 


PRINT 
TOO HIGH 
MESSAGE 


ТОО LOW 
MESSAGE 


NUMBER GUESS GAME 


10 REM THE COMPUTER CHOOSES A NUMBER FROM 
20 REM1 TO 100 AT RANDOM, THE OBJECT OF 
30 КЕМ THE GAME IS TO GUESS THE CHOSEN 
40 REM NUMBER IN AS FEW GUESSES AS POSSIBLE 
50 ЕТК = 1 + INT(100*RND) 
6 LETY=0 
70 PRINT “A RANDOM NUMBER HAS BEEN PICKED” 
80 PRINT “TRY GUESSING IT, HINT THE NUMBER” 
90 PRINT “IS FROM 1 TO 100” 

100 PRINT “GOOD LUCK!!!’ 


110 PRINT 
120 PRINT “YOUR GUESS IS =”; 
130 INPUT X 


LET У =У+1 

IF X = R THEN 180 

IF X > R THEN 280 

GOTO 300 

PRINT "NOT BAD! !!-YOU GOT IT!!!” 

PRINT “YOUR NUMBER OF TRIES WERE";Y 
PRINT 

PRINT "TF YOU WANT TO TRY AGAIN, TYPE 1” 
PRINT “ТЕ NOT TYPE 0” 

INPUT L 

IF L = 1 THEN 260 

STOP 

PRINT 

GOTO 50 

PRINT “TOO HIGH, TRY AGAIN” 

GOTO 120 

PRINT “ТОО LOW, TRY AGAIN” 

GOTO 120 

END 
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ONE-ARM BANDIT 

This computer program simulates the one-arm bandits that use 
three mechanical wheels. For detailed instructions, type yes to the 
instruction question in the program. 


EXAMPLE 

RUN 

ARE INSTRUCTIONS REQUIRED 
TYPE EITHER YES OR NO 

? 

NO 

CHERRY CHERRY CHERRY 


YOUR TOTAL EARNINGS ARE NOW $89 
TO CONTINUE TYPE Y, IF NOT TYPEN 
? 


N 
ONE-ARM BANDIT SAYS GOOD-BYE 
*END 


ONE-ARM BANDIT 


PROMPT + INPUT 
INSTRUCTIONS? 


“С. YES OUTPUT 
ISLE = YES INSTRUCTIONS 


ү 
ISLS = МО ES 


SPIN THE 
WHEELS 


TOTAL UP 
THE 
SCORE 


OUTPUT 
WHEELS + 
SCORE 


PROMPT + INPUT 
CONTINUE COMMAND 
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ONE-ARM BANDIT 


10 


REM THIS PROGRAM SIMULATES THE MECHANI- 
CAL 

REM THREE WHEEL ONE-ARM BANDIT 

PRINT "ARE INSTRUCTIONS REQUIRED” 

PRINT "TYPE EITHER YES OR NO” 

INPUT L$ 

IF L$ = “YES” THEN 100 

IF L$ = “МО” THEN 170 

PRINT “INVALID COMMAND” 

GOTO 30 

PRINT "SCORING IS SIMPLE; 3 ORANGES, LEM- 
ONS ОК” 

PRINT "BANANAS EARN $10. 3 CHERRIES EARN 

$90.” 

PRINT “IF THE FIRST FRUIT 15 AN APPLE YOU EARN 

$2” 

PRINT "TF THE 1ST AND 2ND ARE APPLES YOU 
EARN $3” 

PRINT “IF THE LAST FRUIT IS ACHERRY AND THE” 

PRINT "OTHER TWO ARE THE SAME BUT NOT AP- 
PLES YOU” 

PRINT "EARN $10. EACH TURN COSTS $1. GOOD- 
LUCK” 

LET J=0 

PRINT 

GOSUB 590 ~ 

LET 51 =S 

GOSUB 590 

LET S2 = S 

GOSUB 590 

LET 53 =S 

LET S = SI 


GOSUB 610 


LET S1$ = S$ 

LET 5 = 52 

GOSUB 610 

LET 52$ = S$ 

LET S = 53 

GOSUB 610 

LET 53% = S$ 

IF 51$ = “CHERRY” THEN 380 
IF 51$ = “APPLE” THEN 420 
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IF 51% = 52% THEN 440 

GOTO 460 

IF S1$ = S2$ THEN 400 

GOTO 460 

IF 52$ = 53$ THEN 480 

GOTO 460 

IF S1$ = S2$ THEN 500 

GOTO 520 

IS S2$ = S3$ THEN 540 

IF S3$ = “CHERRY” THEN 540 
LETJ=J--1 

GOTO 550 

LET J =] + 89 

GOTO 550 

LET J=] +2 

СОТО 550 

LETJ=J+1 

GOTO 550 

LETJ=] +9 

PRINT 

PRINT S1$;" “;52$;” “;53$ 
PRINT “YOUR TOTAL EARNINGS ARE NOW $";J 
GOTO 720 

LET S = 1 + INT(5*RND) 
RETURN 

ON S GOTO 620, 640, 660, 680, 700 
LET S$ = “CHERRY” 

GOTO 710 

LET S$ = “APPLE” 

GOTO 710 

LET S$ = “LEMON” 

GOTO 710 

LET S$ = “ORANGE” 

СОТО 710 

LET S$ = “BANANA” 
RETURN 

PRINT 

PRINT “TO CONTINUE TYPE Y, IF NOT TYPE N” 
INPUT Z$ 

IF 7% = "Y" THEN 780 

PRINT “ONE-ARM BANDIT SAYS GOOD-BYE” 
STOP 

PRINT 

GOTO 190 

END 


PERMUTATIONS AND COMBINATIONS 


This program computes permutations and combinations, where N is 
the number of items available and R is the size of the groups under 


consideration. 


FORMULAE 
М! 
Р = кп 
(N — R)! 
EXAMPLE 
ENTER N,R 
2 
12,5 


PERMUTATIONS = 95040 
COMBINATIONS = 792 

TYPE 1 TO CONTINUE, 0 TO STOP 
2 


1 
ENTER N,R 
2 


23,21 

PERMUTATIONS = 1.2926E22 
COMBINATIONS = 253 | 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


N! 


RNN- R)! 
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PERMUTATIONS AND COMBINATIONS 


А PRINT RESULT pad CONTINUE UT 
COMMAND 


PERMUTATIONS AND COMBINATIONS 


10 
20 


30 
40 
50 
60 
70 
80 


REM THIS PROGRAM COMPUTES PERMUTATIONS 

REM AND COMBINATIONS, WHERE N = NUMBER 
OF 

REM ITEMS AND R = SIZE OF GROUP SELECTED 

PRINT “ENTER N,R"; 

INPUT N,R 

IFN<R THEN 270 

ЕК «0 THEN 290 

LET T = N 

GOSUB 310 

LETA=T 

LETT=N-R 

GOSUB 310 

LETB=T 

LET Р = A/B 

LETT=R 


GOSUB 310 

LET С = A/(T*B) 

PRINT "PERMUTATIONS =”;Р 
PRINT “COMBINATIONS = ”;C 
PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
INPUT L 

IF L = 1 THEN 250 

STOP 

PRINT 

GOTO 40 

PRINT “N < R,INVALID INPUT” 
GOTO 40 

PRINT “R < 0,INVALID INPUT” 
GOTO 40 

IF T = 0 THEN 390 

IF T = 1 THEN 390 


LETJ=1 
РОКІ =2 TOT 
LET J = РІ 
NEXT I 

LET T =] 
GOTO 400 
LETT = 1 
RETURN 

END 
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PI-NETWORK IMPEDANGE MATCHING 


Often between two resistive impedanced Zi and 22 a lossless net- 
work is desired. The computer expects the following information: 
Zi — 72, desired system Q and the operating frequency. 


FORMULAE 


PI-NETWORK 
L 


Zi > 22, f = frequency and Q is desired system Q 


1 1 Xi Zo 
Ciz C; = ——— L = —— (Q? + 1) > 1 
27 Ха 2 т fX c2, 2тР Zi 

and where 

Ре 22 

L 

Хае-“- Ха N. 
Q, ki (9? + 1) — i} 
ALE 1+ г) 
9? +1 охо | 

EXAMPLE 
ENTER 1ST IMPEDANCE 
? 
345 
ENTER 2ND IMPEDANCE 
? 
300 
ENTER DESIRED SYSTEM Ө 
? 
20 
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ENTER OPERATING FREQUENCY 
? 


500 

COMPONENTS OF PI-NETWORK 
CAPACITOR 1 = 1.84527 E – 5 
CAPACITOR 2 = 1.97846 E – 5 
INDUCTOR = 1.05836 E – 2 

TO CONTINUE TYPE 1, IF NOT 0 
2 


0 
“END 


PROMPT + INPUT 
SYSTEM VARIABLES 


COMPUTE 
COMPONENTS 
OF NETWORK 


| OUTPUT 
| (COMPONENT-VALUES 


PROMPT + INPUT 
CONTINUE 
COMMAND 


PI-NETWORK IMPEDANCE MATCHING | 
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PI-NETWORK IMPEDANGE MATCHING 
10 REM THIS PROGRAM COMPUTES THE COMPO- 
NENTS 
20 | REM OF A PI-NETWORK. TO MATCH TWO 
30 REM IMPEDANCES 
40 PRINT “ENTER 1ST IMPEDANCE” 


50 INPUT 21 

60 PRINT “ENTER 2ND IMPEDANCE" 

70 INPUT 72 

80 PRINT “ENTER DESIRED SYSTEM 0” 

90  INPUTQ 
100 PRINT “ENTER OPERATING FREQUENCY" 
110 INPUTA 


1200 LETA=Z1/Q 

130 LETC = (Z2/ZI)"(Qf2) + 1)) – 1 
140 LET B = Z2/SQR(C) 

150 ТЕТЕ = (22/(Q*B)) + 1 

160 LET D = E*((Q*Z1)/(Q12) + D) 
170 LET P = 6.28319 

180 LET C1 = 1/(P*F*A) 

190 LET C2 = 1/(P*F*B) 

200 ТЕТІ = D/(P*E) 

210 PRINT “COMPONENTS OF PI-NETWORK" 
220 PRINT “CAPACITOR 1 = ”;C1 

230 PRINT “CAPACITOR 2 = ”;C2 

240 PRINT “INDUCTOR =”, 


250 PRINT 

260 PRINT “ TO CONTINUE TYPE 1, IF NOT 0” 
270 INPUT X 

280 IF X = 1 THEN 300 

290 STOP 

300 PRINT 

310 GOTO 40 

320 END 
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POINTS ON THE CIRCUMFERENCE 


This program computes N equally spaced points on the circumfer- 
ence of a circle. Given radius and center of the circle, this program 
computes the rectangular coordinates of equally spaced points Xi, Yi. 


FORMULAE 


Хізі = Xo +R Соѕ(Ө+ ZI) 
Xn, Yn Yi +1 = Yo + R Sin + ZI) 
where Z= 27 /N 


0,0 
POINTS ON А CIRCUMFERENCE 


EXAMPLE 

CENTER OF CIRCLE(X0, YO) = 

? 

2,2 

ANGLE IN DEGREES OF FIRST POINT = 
? 


90 
NUMBER OF POINTS DESIRED = 
? 

2 

RADIUS OF CIRCLE = 

? 

1 

COORDINATES 


POINT1 X =3 Y = 2 
PONT2X=2Y=1 
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POINTS ON THE CIRCUMFERENCE 


E Ө 


PROMPT + INPUT 
CIRCLE CENTER 


PROMPT + INPUT 
ANGLE OF 1st POINT 


PROMPT + INPUT 
# OF POINTS | 


PROMPT + INPUT 
CIRCLE RADIUS 


PRINT 
COORDINATES 


COMPUTE 
COORDINATES 


OUTPUT 
COORDINATES 


Т 


YES 

PROMPT + INPUT 
INUE 
COMMAND 


YES 


d © 
О 
= 
=i 
| 


z 
O 


POINTS ON THE CIRCUMFERENCE 


10 КЕМ THIS PROGRAM COMPUTES М EQUALLY 
SPACED 
20 КЕМ POINTS ON THE CIRCUMFERENCE OF А 
CIRCLE 
30 PRINT "CENTER OF CIRCLE (X0, YO) =”; 
40 INPUT X0, YO 
50 PRINT "ANGLE IN DEGREES OF 1ST POINT =”; 
60 INPUT W 
70 LET W = (W*3.14159)/180 
80 PRINT "NUMBER OF POINTS DESIRED =”; 
90  INPUTN 
100 PRINT “RADIUS OF A CIRCLE =”; 


110 INPUTR 
120 LET Z = 6.28319/N 
130 PRINT 


140 PRINT “COORDINATES” 

150 FORIZOTON-1 

160 LET X = X0 + (R*COS(W + Z*D) 

170 LET Y = YO + (R*SIN(W + (Z*1)) 

180 LET P=I+1 

190 PRINT “POINT;”;P,“X = ”:X,“V = "ү 

200 NEXT I 

210 PRINT | 
220 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
230 INPUT L 

240 IF L = 1 THEN 260 


250 STOP 
260 PRINT 
270 СОТО 30 


280 END 
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POLAR TO REGTANGULAR CONVERSION 


This program converts given polar coordinates into rectangular 
coordinates. 


FORMULAE 
POLAR TO RECTANGULAR 


EXAMPLE 


POLAR COORDINATES 
ANGLE W IN DEGREES = 
? 

45 

MAGNITUDE R = 

? 


5 

RECTANGULAR COORDINATES 

X = 3.53553 Y = 3.53553 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 


POLAR COORDINATES 

ANGLE W IN DEGREES = 

? 

20 

MAGNITUDE R = 

? 

1 

RECTANGULAR COORDINATES 


X = .939693 Y = .34202 
TYPE 1 TO CONTINUE, 0 STOP 
? 


0 
*END 
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POLAR TO RECTANGULAR CONVERSION 


PRINT 
POLAR 
COORDINATES 


PROMPT + INPUT 
ANGLE 


PROMPT + INPUT 
MAGNITUDE 
COMPUTE 
P>R 
PRINT 
RECT. COORDINATES 


OUTPUT 
X, Y 


PROMPT + INPUT 
CONTINUE 


COMMAND 


og 
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POLAR TO RECTANGULAR CONVERSION 


10 
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REM THIS PROGRAM CONVERTS GIVEN POLAR 


COORDINATES 
REM INTO RECTANGULAR COORDINATES 
PRINT “POLAR COORDINATES” 
PRINT “ANGLE W IN DEGREES =”; 
INPUT W 
LET W = (W*3.14159)/180 
PRINT "MAGNITUDE R =”; 


LET Y = R*SIN(W) 

PRINT *RECTANGULAR COORDINATES" 
PRINT “X = Ny — ”.V 

PRINT 

PRINT “ТҮРЕ 1 TO CONTINUE, 0 TO STOP" 
INPUT L 

IF L = 1 THEN 180 

STOP 

PRINT 

GOTO 30 

END 


PRIME TEST 


This program tests а given number to see whether or not it is prime. 
If so, it is thus indicated and if not, the smallest factor returned. The 
program will continue to cycle until а zero is entered as а test 
number. 


EXAMPLES 


ENTER THE TEST NUMBER, ZERO TO STOP 

? 

45 

45 IS NOT A PRIME 3 IS THE SMALLEST FACTOR 
ENTER THE TEST NUMBER, ZERO TO STOP 

? 

120078 

120078 IS NOT А PRIME 2 IS THE SMALLEST FACTOR 
ENTER THE TEST NUMBER, ZERO TO STOP 

? 


121 

121 IS NOT A PRIME 11 IS THE SMALLEST FACTOR 
ENTER THE TEST NUMBER, ZERO ТО STOP 

? 


179 

179 IS A PRIME 

ENTER THE TEST NUMBER,ZERO TO STOP 
? 

0 

GOOD-BYE FROM THE PRIME TESTER 
“END 
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PRIME TEST 


PROMPT + INPUT 
TEST NUMBER 


EQUAL TO INT (N) 


| б в | | 
< 


— Y n a i 


. YES// GOODBYE 
MESSAGE 


STOP 
YES 


N IS PRIME 
MESSAGE 


—PÜé 


| NO 


TEST FOR 
NEXT FACTOR 


а 
| 


— 


NOT PRIME 
| MESSAGE 


L 


UPDATE Т 


М 


= 


PRIME TESTER 
10 REM THIS PROGRAM TESTS IF A NUMBERIS PRIME 
20 REMIT CONTINUES TO CYCLE UNTIL ZERO IS EN- 
TERED 
30 PRINT “ENTER THE TEST NUMBER, ZERO ТО 
STOP” 
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INPUT М 

LET N = INPUT (N) 

IF N = 0 THEN 220 

IF N < 4 THEN 180 

LETI=0 

LET T =2 

LET J = INT(N/T) 

LET K = J*T 

IF N = K THEN 200 

LET I=I+1 

LET L = TAT 

IF L > N THEN 180 

LET T = (F2) + 1 

GOTO 100 

PRINT N; “IS A PRIME” 

GOTO 30 

PRINT N; “IS NOT A PRIME”; T; “IS THE SMALLEST 
FACTOR” 

GOTO 30 

PRINT “GOOD-BYE FROM THE PRIME TESTER” 

END 
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QUADRATIC EQUATIONS 


This program solves forx in а quadratic equation where а, b апас are 
given. Both real and complex roots are found. 


FORMULAE 
ах? + bx + c = o 


-b +V b? — 4ac 
да 


D = (b? — 4ac)/4a’ 


D > & roots are real D< & roots are complex 


D > ф 
b b 
IF ^? Xi=-==+y/D ` 
2а 2а 
b 
IF-— <b  Xi2-—-/D 
2а 2a 
С 
X = —— 
Aid 
050 -b [ia Tt 
ӘБ ЕЕ 1 
2a 2a 
EXAMPLES 
ENTER VALUES FOR A,B AND C 
? 
1,1,0 
ROOTS ARE REAL 
IST ROOT => – 1 
2ND ROOT = 0 


Жжжж: із de db ak ді ііі X 
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TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 
ENTER VALUES FOR A,B AND C 
? 


10,10,10 

ROOTS ARE COMPLEX 
REAL PART = — 50 
IMAGINARY PART = 86.6025 


XX XX. as oj oe be ss aa XC XL XC eske joke joo 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
*END 


PROMPT + INPUT 
А, B. С QUADRATIC EQUATIONS 


COMPUTE 
D 


COMPUTE 
E 


NO 
COMPUTE YES 
X, Y 


COMPUTE Z 
(+00) 


PRINT 
ROOTS ARE 
COMPLES COMPUTE Z 
(~ Vb 
OUTPUT 
REAL-IMAGINARY 


PROMPT + INPUT Ты 
СОММАМО 


T 


ONTINUE 
PRIN 
A ROOTS ARE REAL 
YES 
OUTPUT 
NO ROOTS 
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QUADRATIG EQUATION 


10 REM THIS PROGRAM COMPUTES THE SOLUTION 
TO Å 
20 REM QUADRATIC EQUATION 
30 PRINT “ENTER VALUES FOR A, В AND С” 
40 INPUT A,B,C 
50 LET D = ((В22) - 4*A*O)/4*AM2) 
60 —£IFD»=OTHEN 130 
70  LETX-E/Q*A) 
80 LET Y = (SQR((4*A*C) — B 2))/(2“А) 
90 PRINT “ROOTS ARE COMPLEX” 
100 PRINT "REAL PART = ”:X 
110 PRINT "IMAGINARY PART = ";Ү 
120 GOTO 220 
130 ТЕТЕ =- B/(2*A) 
140 IFE >=0THEN 170 
150 LET Z =E- SQR(D) 
160 СОТО 180 
170 LETZ =E + SQR(D) 
180 LET W = С/(2*А) 
190 PRINT “ROOTS ARE REAL" 
200 PRINT 1ST ROOT = ”;Z 
210 PRINT “2ND ROOT = %W 


220 PRINT “иж 
230 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
240 INPUT L 

250 IFL = 1 THEN 270 

260 STOP 

270 PRINT 

280 GOTO 30 

290 END 
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RECTANGULAR TO POLAR CONVERSION 


This program computes rectangular coordinates that are supplied by 
the user into polar coordinates. 


FORMULAE 


Y 
ф =TAN-1— Ё=/ХТ+ҮТ? 
Х 


EXAMPLES 

Х = 

? 

10 

Y= 

? 

10 

POLAR COORDINATES 

ANGLE IN DEGREES = 45.0000 
MAGNITUDE = 14.1421 


1 dco debe s de de bee e e e edo іі 


TYPE 1 TO CONTINUE, 0 TO STOP 
2 


ww pa = 


>< 
II 


32 

POLAR COORDINATES 

ANGLE IN DEGREES = 43.2643 
MAGNITUDE = 46.6904 


eoo doe jede e ak ok ok ok kk kok ak koko 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
“END 
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| 


РНОМРТ + INPUT 
RECTANGULAR RECTANGULAR TO POLAR CONVERSION 
COOR. 


| 
m 


YES _ 


z 
O 


6 > O 
© 
{i< < 
წთ თი 
m 
m : 
თ 
Do ^ я 
II II o 
ae 
+ m > m "^R 
ლ os «8 
5 


NO R-+X 
CALCULATE LET 
POLAR 6 + 180 


COORDINATES A +ABS (X) 


OUTPUT 
COORDINATES 


М9) 
О 
г 
> 
A 


PROMPT + INPUT 
CONTINUE 
COMMAND 


NO 


RECTANGULAR TO POLAR CONVERSION 


10 


REM THIS PROGRAM CONVERTS GIVEN RECTAN- 
GULAR 
REM COORDINATES INTO POLAR COORDINATES 
PRINT “RECTANGULAR COORDINATES” 
PRINT “X = ” 
INPUT X 
PRINT “y=” 


INPUT Y 

IF X + Y = 0 THEN 150 
IF X = 0 THEN 180 

IF Y = 0 THEN 250 

LET W = ATN(Y/X) 

LET W = (W*180)/3.14159 
LET R = SARAT + У72) 
GOTO 310 


LET W = — 90 


GOTO 310 

X > 0 THEN 290 
LET W = 180 
LET К = ABS (Х) 
GOTO 310 

LET W = 0 
LETR =X 


PRINT “POLAR COORDINATES” 
PRINT “ANGLE IN DEGREES = ”; W 
PRINT “MAGNITUDE = ”; R 


PRINT CO eide ЖЖЖ Ж Ж sa ses se ske sje ode o e ok se sje ee?) 


PRINT "TYPE 1 TO CONTINUE, 0 TO STOP” 


INPUT L 

IF L = 1 THEN 390 
STOP 

PRINT 

GOTO 40 

END 
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RECTANGULAR SECTIONS 


This program computes various parameters: moment of inertia, 
polar moment of inertia, and area of section connected with a rectan- 
gular section. 


FORMULAE 


| RECTANGULAR SECTION | 


| bh? 
| I = — I and J is in(tm 9 
x 12 Aisin (in?) 


_ bh(b? + #2) 
12 


EXAMPLE 
BASE = 
2 


3 
HEIGHT = 

2 

5 

MOMENT OF INERTIA = 31.25 
POLAR MOMENT OF INERTIA = 42.50 
AREA OF SECTION = 15 

TYPE 1 TO CONTINUE, 0 TO STOP 

? 

0 

“END 
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RECTANGULAR SECTIONS 


PROMPT + INPUT 
BASE + HEIGHT 


COMPUTE 
| l, J, A 


| OUTPUT 
LJA 


PROMPT + INPUT 
CONTINUE 
COMMAND 


ს 


M0 
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RECTANGULAR SECTIONS 
10 REM THIS PROGRAM COMPUTES THE VARIOUS 


PARAMETERS 

20 REM CONNECTED WITH А RECTANGULAR SEC- 
TION 

30 PRINT “BASE ="; 

40 INPUTB 

50 PRINT "HEIGHT =” 

60  INPUTH 


70  LETI=(B*H13)/12 

80 LET J = (B*H*(BT2 + НТ2)/12 

90 LETA =B*H 
100 PRINT “MOMENT OF INERTIA -”1 
110 PRINT “POLAR MOMENT ОЕ INERTIA = ”;J 
120 PRINT "AREA OF SECTION = 5A 


130 PRINT 

140 PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 
150  INPUTL 

160 IF L=1 THEN 180 

170 STOP 

180 PRINT 

190 GOTO 30 

200 END 
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RESISTIVE ATTENUATOR DESIGN 


This program computes the required three resistors to form either a 
Pi- or T-type resistive attenuator. This type of attenuator allows the 
user to choose a loss other than that of minimum. 


FORMULAE 


RESISTIVE ATTEM DESIGN 


Ri В: Rs 
Rix — x Я, = Во Rix -Rod— 


Riw Ro, and N = desired loss > minimum loss 


R 2 
minimum loss =1blog| / EN + Ji 1 
Ro Ro 


T-type 
2/N Рико 
ვ = 
N – 1 
N +1 
Ri = Ri 
№ — 1 
N+1 
Е? = Ro 
№ — 1 
ავა pe TZ 
Rs =—(N — 1) 
2 N 
1 
N+1 
Ri = =-= 
Rin AN - 1 R3 
1 
1 AN +1 1 
R2 ш---- — — 
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EXAMPLE 

INPUT RESISTANCE R(N) = 

? 

500 

OUTPUT RESISTANCE R(0) = 

? 

100 

MINIMUM SYSTEM LOSS IN DECIBELS = 12.54 
ENTER DESIRED LOSS IN DECIBELS 
2 

20 

RAN) = 500 R(0) = 100 

DESIRED LOSS = 20 

T ATTENUATOR 

RESISTOR 1 = 464.9 

RESISTOR 2 = 56.85 

RESISTOR 3 = 45.17 

PI ATTENUATOR 

RESISTOR 1 = 879.6 

RESISTOR 2 = 107.5 

RESISTOR 3 = 1107 

TYPE 1 TO CONTINUE, 0 TO STOP 
2 


0 
*END 
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RESISTIVE ATTENUATOR DESIGN 


PROMPT + INPUT 
R(IN) + R(O) 


COMPUTE 
MINIMUM 
LOSS 


OUTPUT 
MINIMUM LOSS 


PROMPT + INPUT 
DESIRED LOSS 


COMPUTE 
COMPONENTS 


OUTPUT 
LOSS 


OUTPUT 
T-TYPE 
COMPONENTS 


OUTPUT 
T-TYPE 


COMPONENTS 


PROMPT + INPUT 
CONTINUE COMMAND 


YES 


оф 


169 


RESISTIVE ATTENUATOR DESIGN 


10 REM THIS PROGRAM COMPUTES THE COMPO- 
NENTS 

20 REM REQUIRED FOR A PI OR T TYPE 

30 REM RESISTIVE ATTENUATOR 

40 PRINT “INPUT RESISTANCE RON) =”; 


50 INPUT X 
60 PRINT “OUTPUT RESISTANCE К(0) =”; 
70 INPUT Y 


80 LETZ=X/Y 
90 LETA = (SQRZ) + SQRZ - 1412 
100 LET M = 10*(LOG(Q/LOG(10)) 
110 PRINT “MINIMUM SYSTEM LOSS IN DECIBELS 


120 PRINT “ENTER DESIRED LOSS IN DECIBELS’; 
130  INPUTL 

140 LETN = 10 (L/10) 

150 LETW=N-1 

160 LETU=N+1 

170 LET A = Z*'(SQR(XCY*N)) 

180 LET B = (X“U/W)) - A 

190 LET C =(Y*U/W)) - A 

200 LET = (W*SQR((X*Y)/N))/2 
210 ТЕТЕ = 1/((U/W)/X) — Q/D) 
220 ТЕТЕ = 1/(U/W)/Y) – (1/L) 
230 PRINT "R(N) = ”;X,“R(0) = ”;V 
240 PRINT “DESIRED LOSS = 5L 
250 PRINT 

260 PRINT “T ATTENUATOR’ 

270 | PRINT “RESISTOR 1 = 5B 

280 PRINT “RESISTOR 2 = 5C 

290 PRINT “RESISTOR 3 = ”;А 

300 PRINT 

310 PRINT “РІ ATTENUATOR” 

320 PRINT “RESISTOR 1 = 5E 

330 PRINT “RESISTOR 2 = ";F 

340 PRINT “RESISTOR 3 = 5D 

350 PRINT 

360 PRINT "TYPE 1 TO CONTINUE, 0 TO STOP” 
370 INPUT Q 

380 IF Q = 1 THEN 400 


390 STOP 
400 PRINT 
410 СОТО 40 
420 END 


SIMULTANEOUS EQUATIONS IN TWO UNKNOWNS 


The user supplies the components oftwo AX + BY = Ctype equa- 
tions, also giving the computer the opportunity to state if the solution 
is impossible. 


FORMULAE 


FI 
AF - EC CF 


E 
ED — BF FD 
X = - 


AD — BC AB AD — BC AB 
CD CD 
EXAMPLE 
AX + BY=E 
CX + DY =F 


ENTER PARAMETERS, A,B,C,D,E,F 
2 


10,20,45,23,56,78 
SOLUTION X = 9.6 Y = — 2.55 


ap joel XX MX MX XI kakak XXX MX kok kh 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 

AX + BY=E 

СХ + DY + Е 

ENTER PARAMETERS A,B,C,D,E,F 

10,10,789,2,2,6 

NO SOLUTION, OR NO UNIQUE SOLUTION EXISTS 


Meis oe sk af aeo X sk o kek pe kok kok 2: ML XL k k 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


0 
“END 
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| START W 


| PROMPT + 
INPUT PARAMETER . 


IS M = C? 


CALCULATE 
X AND Y 


OUTPUT MESSAGE 
CONTINUE INPUT 


YES 


OUTPUT 
NO SOLUTION 
MESSAGE 


SIMULTANEOUS EQUATIONS IN TWO UNKNOWNS 


SIMULTANEOUS EQUATIONS IN TWO UNKNOWNS 


10 


REM THIS PROGRAM COMPUTES SIMULTANEOUS 
EQUATIONS 

REM IN TWO UNKNOWNS 

PRINT "AX + BY = E” 

PRINT "CX + DY = F” 

PRINT "ENTER PARAMETERS A,B,C,D,E,F” 

INPUT A,B,C,D,E,F 

LET М = (A“D) – (B*C) 

IF M = 0 THEN 140 

LET X = ((E*D) — (В*Е))/М 

LET Y = ((A*F) – (E*C))/M 

PRINT "SOLUTION","X = ”;X,“Y = ”;Y 

PRINT ЧЕ ЕЖ ЕЖ ЕЖ XX XL ЖЕЖ $} 

СОТО 160 

PRINT “NO SOLUTION, OR NO UNIQUE SOLUTION 

EXISTS” 

PRINT “ЖЕЖ ЖЕ He XX oe aka eH he HI? 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 200 

STOP 

PRINT 

GOTO 30 

END 
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SIMULTANEOUS EQUATIONS IN THREE UNKNOWNS 


The computer solves a system of three equations in three unknowns 
with the parameters supplied by the user. 


EXAMPLE 


SOLVE FOR 3 EQUATIONS IN 3 UNKNOWNS 
OF THE TYPE AX + BY + CZ =D 

ENTER FIRST EQUATION(A, B, C, D) 

? 

1,4,6,3 

ENTER SECOND EQUATION(A,B, C, D) 

? 


- 3,8,0, - 2 

ENTER THIRD EQUATION(A, B, C, D) 

2 

4, — 5,2,6 

SOLUTION 

Х = 2.65516 Y = .741935 Z = — .435483 
TYPE 1 TO CONTINUE, 0 TO STOP 

° 

0 

*END 
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| SIMULTANEOUS EQUATIONS IN THREE UNKNOWNS 


/ РАМ 

| (PROGRAM HEADER 

| / PROMPT + INPUT 
THREE EQUATIONS 


COMPUTE 
E1- ES 
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SIMULTANEOUS EQUATIONS IN THREE UNKNOWNS 


10 
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REM THIS PROGRAM COMPUTES THE SOLUTION 
TO 

REM А SYSTEM OF 3 EQUATIONS IN 3 UNKNOWNS 

PRINT “SOLVE FOR 3 EQUATIONS IN 3 UNKNOWNS" 

PRINT “OF THE TYPE AX + BY + CZ = D” 

PRINT “ENTER 1ST EQUATION (A,B,C, D)” 

INPUT A1,B1,C1,D1 

PRINT “ENTER 2ND EQUATION (A,B,C,D)" 

INPUT A2,B2,C2,D2 

PRINT “ENTER 3RD EQUATION (A,B,C,D) 

INPUT A3,B3,C3, D3 

LET E1 = ((B1*A2)/A1) — B2 

LET E2 = ((C1*A2)/A1) — C2 

LET ЕЗ = ((B1*A3)/A1) — B3 

LET E4 = ((C1*A3)/Al) — СЗ 

LET E5 = ((E1*E4) — (E2*E3)) 

IF E5 = 0 THEN 250 

LET E6 = ((D1*A2)/A1) — D2 

LET E7 = ((D1*A3)/A1) — D3 

LET Y = ((E6*E4) — (E2*E7)/E5 

LET Z = ((E1*E7) - (E6*E3))/E5 

LET X = (D1/A1) — ((B1/A1“Y) — ((C1/A1)*Z) 

PRINT “SOLUTION” 

PRINT "X = "XY = ”;Y,“Z = ”;Z 

GOTO 260 

PRINT “INSUFFICIENT OR ERRONEOUS DATA EN- 
TERED” 

PRINT 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 310 

STOP 

PRINT 

GOTO 30 

END 


SPACE WARS (1) 


The game of Space Wars, as simulated by this program, is a battle 
between two ships, one the enemy, the other the player. The player 
has the following options: rotate the ship, move the ship, fire the 
laser cannon, fire the laser, or self-destruct. The object of this game 
is to destroy the enemy. The enemy, also being armed with a laser 
cannon and а laser, fires on you, so be careful. 


EXAMPLE 


RUN 

ARE INSTRUCTIONS REQUIRED? TYPE EITHER 
YES OR NO 

2 


YES | 

THERE ARE 5 EXECUTIVE COMMANDS; TURN TH 

SHIP(1), MOVE(2), FIRE LASER CANNON(3), 

FIRE LASER(4) AND SELF-DESTRUCT(5) 

THE CANNON MUST BE FIRED WITHIN 10 DEGREES 

OF 90 TO BE EFFECTIVE. NEGATIVE DEG TURNS TO- 
WARDS 

0 AND POSITIVE DEG TOWARDS 180. ENTERING NEGATIVE 
KM 

MOVES YOU TOWARDS THE ENEMY, WHILE POSITIVE 
MOVES 

YOU AWAY. LASER EFFECTIVENESS IS RANDOM, DUE TO 

SHIELDING, DISTANCE AND INTERSTELLAR DEBRIS 

aiio O (O) O L (U C KE kk 

MAY THE FORCE BE WITH YOU 

DISTANCE TO ENEMY 3.7 E0 3KM 

BEARING IS 87 DEGREES 

THE SKY FIGHTER HAS FIRED HIS LASER 

YOUR TOTAL ENERGY IS NOW 9.75E03 UNITS 

THE ENEMY HAS 9.5E03 UNITS OF ENERGY LETS 

WHICH COMMAND DO YOU WISH TO EXECUTE 

2 

2 

HOW MANY KM TO TRANSVERSE 

2 


— 3.3E03 

DISTANCE TO ENEMY 400KM 

BEARING IS 87 DEGREES 

THE SKY FIGHTER HAS FIRED HIS LASER 
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YOUR TOTAL ENERGY IS NOW 9.32E03 UNITS 
THE ENEMY HAS 9.0E03 UNITS OF ENERGY LEFT 
WHICH COMMAND DO YOU WISH TO EXECUTE 

? 


5 

YOU HAVE INSTRUCTED THE ON-BOARD COMPUTER 
TO SELF-DESTRUCT, THE REACTOR HAS GONE 
CRITICAL, YOU HAVE GONE TO MEET THE FORCE 
YOUR DESTRUCTION HAS ALSO DESTROYED 

THE SKY FIGHTER, YOU WILL BE REMEMBERED 
AS A HERO 

SPACE WARS IS OVER 

TO PLAY SPACE WARS AGAIN TYPE GO, 
OTHERWISE TYPE NO 

2 

МО 

SPACE WARS SAYS GOOD-BYE 

*END 
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SPACE WARS (1) 


ARE INST. 
REQUIRED 


OUTPUT 
INSTRUCTIONS 


ле COMPUTE 
DAMAGE 
! CAUSED BY 
| ENEMY 
NO PRINT 
"COMMAND" 
YES 
YES TURN THE 
END SHIP 
MESSAGE 
CONTINUE 
MESSAGE YES MOVE THE 


SHIP 


YES 


FIRE LASER 


NO CANNON 


STOP 
YES 


FIRE LASER 


SELF 
DESTRUCT 
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SPAGE WARS (1) 


10 


20 


REM THIS PROGRAM IS THE GAME OF SPACE 
WARS 

REM TWO SHIPS BATTLE, YOU MUST DESTROY 
THE 

REM ENEMY TO SAVE THE REPUBLIC 

RANDOMIZE 

PRINT *ARE INSTRUCTIONS REQUIRED? TYPE 
EITHER” 

PRINT “YES OR NO” 

INPUT A$ 

IF A$ = “YES” THEN 120 

IF A$ = “NO” THEN 250 

PRINT “INVALID RESPONSE” 

GOTO 50 

PRINT 

PRINT “THERE ARE 5 EXECUTIVE COMMANDS; 
TURN THE” 

PRINT “SHIP(1), MOVE(2), FIRE LASER CANNONG),” 

PRINT “FIRE LASER(4) AND SELF-DESTRUCT(5)" 

PRINT “THE CANNON MUST BE FIRED WITHIN 10 
DEGREES” 

PRINT “OF 90 TO BE EFFECTIVE. NEGATIVE DEG 
TURNS TOWARDS” 

PRINT “0 AND POSITIVE DEG TOWARDS 180. EN- 
TERING NEGATIVE KM” 

PRINT “MOVES YOU TOWARDS THE ENEMY, WHILE 
POSITIVE MOVES” 

PRINT “YOU AWAY. LASER EFFECTIVENESS IS 
RANDOM, DUE TO” 

PRINT “SHIELDING, DISTANCE AND INTERSTEL- 
LAR DEBRIS” 

PRINT 

PRINT state COO D-LUCK Аа аж oe 

PRINT “MAY THE FORCE BE WITH YOU” 

LET E1 = 1E04 

LET E2 = El 

LET D = 1E03 + INT(5E05*RND) 

LET B = I + INT(180*RND) 

GOSUB 340 

GOSUB 390 

LET E1 = El — D1 

GOSUB 500 


СОТО 690 

IF Р > = 1E05 THEN 370 

LET L = 1 

GOTO 380 

LET L = 0 

RETURN 

IF L = 0 THEN 440 

LET H2 = (1 + INT(100*RND))/100 

LET D1 = 500*H2 

LET E2 = E2 — 500 

GOTO 490 

LET MI = 1 + INT(2*RND) 

IF M1 = 1 THEN 470 

LET D1 = 1000 

GOTO 480 

LET DI = 0 

LET E2 = E2 — 1000 

RETURN 

PRINT 

PRINT "DISTANCE TO ENEMY ” D; “KM” 

PRINT “BEARING IS ”;B;” DEGREES" 

IF L = 1 THEN 560 

PRINT "THE SKY FIGHTER HAS FIRED THE LASER 
CANNON" 

GOTO 570 

PRINT "THE SKY FIGHTER HAS FIRED HIS LASER" 

PRINT “YOUR TOTAL ENERGY IS NOW”;E1;” 
UNITS" 

PRINT "THE ENEMY HAS ”;E2;” UNITS OF ENERGY 
LEFT" 

IF E1 « = 0 THEN 620 

IF E2 < = 0 THEN 650 

GOTO 680 

PRINT "YOUR ENERGY LEVEL IS ZERO, THE 
ENEMY" 

PRINT "HAS WON, YOU HAVE BECOME ONE WITH 
THE FORCE! 

GOTO 1180 

PRINT "THE ENEMY HAS RUN OUT OF ENERGY, 
YOU" 

PRINT "HAVE WON" 

GOTO 1180 | 

RETURN 
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PRINT 

PRINT "WHICH COMMAND DO YOU WISH TO EXE- 
CUTE” 

INPUT C 

ON C GOTO 730, 840, 1010, 1100, 1140 

PRINT “HOW MANY DEGREES OF ROTATION" 

INPUT 81 

IF B + B1 = 0 THEN 800 

IF В + 81 > 180 THEN 820 

LET B = В + Bl 

LET Е1 = E1 — (10*ABS(B1)) 

GOTO 290 

PRINT "YOUR ANGLE MUST BE GREATER THAN 0 
DEGREES” 

GOTO 730 

PRINT “YOUR ANGLE MUST BE LESS THAN 181 DE- 
GREES" 

GOTO 730 

PRINT “HOW MANY KM TO TRANSVERSE” 

INPUT K 

IF D + K = 0 THEN 910 

IF D + K > 1E06 THEN 960 

LETD=D+K K/1000)) 

LET E1 = E1 — (ABS( 

GOTO 290 

PRINT “YOU HAVE TRIED TO CLOSE THE DIS- 
TANCE TO ZERO” 

PRINT “BETWEEN YOU AND THE ENEMY, THE 
ON-BOARD” 

PRINT “COMMAND COMPUTER WILL NOT EXE- 
CUTE THIS MANEUVER’ 

PRINT 

GOTO 840 

PRINT “YOU HAVE TRIED TO EXCEED THE DIS- 
TANCE WHERE” 

PRINT “ANY OF YOUR WEAPONS ARE EFFECTIVE” 

PRINT “THE ON-BOARD COMPUTER WILL NOT” 

PRINT “EXECUTE THIS MANEUVER’ 

GOTO 840 

LET E1 = El - 1000 

IF B > = 80 THEN 1050 

PRINT “YOUR ANGLE IS TOO SMALL, YOU HAVE 
MISSED” 


1040 
1050 
1060 


1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 


1150 


1160 


1170 
1180 
1190 
1200 


1210 


1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 


GOTO 290 

IF B < = 100 THEN 1080 

PRINT "YOUR ANGLE IS ТОО GREAT, YOU HAVE 
MISSED” 

GOTO 290 

LET E2 = E2 — 1000 

GOTO 290 

LET El = El — 500 

LET D2 = (1 + INT(100*RND))/100 

LET E2 = E2 — (D2*500) 

GOTO 290 

PRINT “YOU HAVE INSTRUCTED THE ON-BOARD 
COMPUTER" 

PRINT "TO SELF-DESTRUCT, THE REACTOR HAS 
GONE" 

PRINT "CRITICAL, YOU HAVE GONE TO MEET THE 
FORCE” 

IF D < = 500 THEN 1200 

PRINT “SPACE WARS IS OVER” 

GOTO 1240 

PRINT “YOUR DESTRUCTION HAS ALSO DE- 
STROYED” 

PRINT “THE SKY FIGHTER, YOU WILL BE REMEM- 
BERED” 

PRINT “AS A HERO” 

GOTO 1180 

PRINT 

PRINT “TO PLAY SPACE WARS AGAIN ТҮРЕ СО,” 

PRINT “OTHERWISE TYPE NO” 

INPUT Z$ 

IF Z$ = “GO” THEN 1310 

PRINT "SPACE WARS SAYS GOOD-BYE” 

STOP 

PRINT 

GOTO 50 

END 
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SPAGE WARS (2) 


This computer simulation requires considerably more memory than 
any other program in the book. For the user who is memory limited, 
the following may be done. Deleting the REM statements, removing 
the instructions, and reducing the string lengths in the messages will 
reduce the memory requirement by about 50 percent. 


EXAMPLE 


RUN 

ARE INSTRUCTIONS FOR SPACE WARS REQUIRED? TYPE 

EITHER YES OR NO 

? 

YES 

нак D A CER WARP ка EERE 

THE DEATH STAR SPACE STATION, YOUR GOAL, IS HEAV- 
ШҮ 

SHIELDED AND MOUNTS MORE FIREPOWER THAN HALF 

THE IMPERIAL FLEET. BUT, ITS DEFENSES WERE 

PRIMARILY DESIGNED TO FEND OFF LARGE-SCALE CAPI- 
TAL 

SPACE-SHIP ASSAULTS. A SMALL, ONE- OR TWO-MAN 

X-WING FIGHTER SHOULD BE ABLE TO SLIP THROUGH 

ITS DEFENSIVE SCREENS. YOUR MISSION IS TO DESTROY 

THE DEATH STAR!!! ON ITS SURFACE THERE IS A SMALL 

THERMAL EXHAUST PORT. ITS SIZE BELIES ITS IMPOR- 
TANCE 

ASIT APPEARS TO BE AN UNSHIELDED SHAFT THAT RUNS 

DIRECTLY INTO THE MAIN REACTOR SYSTEM POWERING 

THE DEATH STAR SPACE STATION. SINCE THIS SERVES 

AS AN EMERGENCY OUTLET FOR WASTE HEAT IN THE 

EVENT OF REACTOR OVERPRODUCTION, ITS USEFUL- 
NESS 

WOULD BE ELIMINATED BY ENERGY-PARTICLE SHIELD- 
ING. 

A DIRECT HIT WOULD INITIATE А CHAIN REACTION THAT 

WOULD DESTROY THE STATION, THUS PROTECTING THE 

REPUBLIC 

settes OYE CUTIVE COMMANDS АРЕН 

(1) FIRE HIGH-ENERGY TORPEDO 

(2) FIRE LASER CANNON 

(3) FIRE LASER 

(4) PROPULSION OF X-WING 
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THE BATTLE COMPUTER OPTION MAY BE USED WITH 
COMMANDS 
2 AND 3. THE ENERGY TORPEDO IS USED TO DESTROY 
THE DEATH STAR WITH, EACH TORPEDO EXPENDS 20,000 
UNITS OF ENERGY. THE LASER CANNON MAY BE USED 
AGAINST THE SKY FIGHTERS, IT REQUIRES 5,000 UNITS 
THE LASER USES 1,000 ENERGY UNITS PER SHOT AND IT 
IS ALSO USED AGAINST THE SKY FIGHTERS. 
THE BATTLE COMPUTER REQUIRES 500 ENERGY UNITS, 
BUT, 
GUARANTEES А DIRECT HIT ON А SKY FIGHTER. TO DE- 
STROY А SKY FIGHTER YOU MUST DEPLETE IT OF EN- 
ERGY. 
MOVING THE X-WING SPACE CRAFT IS IMPERATIVE AS 
THE ENERGY TORPEDO MUST BE FIRED WITHIN 1000KM 
OF THE DEATH STAR. X-WING PROPULSION REQUIRES 
1 ENERGY UNIT PER KM 
aK ak aa je a a КЕК a a a ak ak ok 
GOOD-LUCK 
MAY THE FORCE BE WITH YOU 
shoe a be ak КЕК ККЕ Ж ЖЕКЕ a a kk ak ak a a a n eode ool 
DISTANCE TO DEATH STAR IS NOW 1E05KM 
THE SKY FIGHTER HAS FIRED HIS LASER CANNON 
THE DARK LORD IS EXTREMELY DANGEROUS!!! 
THE SMITH LORD HAS USED A LASER CANNON ENERGY 
BEAM 
YOUR TOTAL ENERGY IS NOW 4. 98E05 
WHICH COMMAND DO YOU WISH TO EXECUTE 
2 


4 

HOW MANY UNITS OF ENERGY DO YOU WISH TO FEED TO 
THE HYPER-ATOMIC DRIVE UNIT, (1 UNIT/1KM) 
**CAUTION** TOO MUCH ENERGY WILL OVER-HEAT 
THE REACTOR, INPUT NO MORE THAN 22,500 UNITS 

AT ANY ONE TIME 

? 


30,000 

IN WHICH DIRECTION, AWAY (A) OR TOWARDS (T) 
THE DEATH STAR 

? 


T 
YOU HAVE WASTED 3.0E04 UNITS OF ENERGY 
THE REACTOR IS CRITICALLY OVERHEATED 
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DISTANCE TO DEATH STAR IS NOW 1E05KM 

THE SKY FIGHTER HAS FIRED HIS LASER CANNON 

RADER'S ON-BOARD ATTACK COMPUTER HAS MATCHED 

YOUR COURSE, HIS WEAPONS ARE READY 

THE SMITH LORD HAS USED А LASER CANNON ENERGY 
BEAM 

YOUR TOTAL ENERGY IS NOW 4.39E05 UNITS 

WHICH COMMAND DO YOU WISH TO EXECUTE 

? 


4 

HOW MANY UNITS OF ENERGY DO YOU WISH TO FEED ТО 
THE HYPER-ATOMIC DRIVE UNIT, (1 UNIT/1KM) 
**CAUTION** TOO MUCH ENERGY WILL OVER-HEAT 
THE REACTOR, INPUT NO MORE THAN 22,500 UNITS 

AT ANY ONE TIME 


20,000 

IN WHICH DIRECTION, AWAY (A) OR TOWARDS (T) 

THE DEATH STAR 

3 

T 

DISTANCE TO DEATH STAR IS NOW 8.0E04KM 

THE SKY FICHTER HAS FIRED HIS LASER CANNON 

*CAUTION* GARTH RADER IS THE BEST SHOT IN THE 

IMPERIAL FLEET, PLUS HE USES THE BAD SIDE OF THE 
FORCE | 

THE SMITH LORD HAS USED А LASER CANNON ENERGY 
BEAM 

YOUR TOTAL ENERGY IS NOW 4.1E05 UNITS 

WHICH COMMAND DO YOU WISH TO EXECUTE 

3 

/////////////////////////////////////////////////////////// 

TO PLAY SPACE WARS AGAIN TYPE СО, IF 

NOT TYPE NO 

2 


NO 
SPACE WARS SAY GOOD-BYE AND MAY THE FORCE 

BE WITH YOU 
“END 
The ////// indicate where the program was terminated, this simula- 
tion may be played for a considerable length of time. In the interest of 
saving space and leaving the unexpected to the user only а portion of 
a typical run has been shown. 
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SPACE WARS (2) 


10 


20 


30 


250 


REM THIS COMPUTER SIMULATION IS AN AD- 
VANCED VERSION OF 

REM THE SPACE WARS GAME. YOUR MISSION IS 
TO DESTROY THE 

REM DEATH STAR. YOU MAY BE ATTACKED BY 
THE DEATH STAR'S 

REM DEFENSES AND BY THE SKY FIGHTERS 

RANDOMIZE 

PRINT “ARE INSTRUCTIONS FOR SPACE WARS 
REQUIRED? TYPE” 

PRINT “EITHER YES OR NO” 

INPUT A$ 

IF A$ = “YES” THEN 130 

IF A$ = “МО” THEN 540 

PRINT "YOU HAVE ISSUED AN INVALID RE- 
SPONSE” 

GOTO 60 

PRINT 

PRINT момент PACE 
VV #I2ა%######XXXXXX#X%X#7 

PRINT "THE DEATH STAR SPACE STATION, YOUR 
GOAL, IS HEAVILY” 

PRINT "SHIELDED AND MOUNTS MORE 
FIREPOWER THAN HALF” 

PRINT "THE IMPERIAL FLEET. BUT, ITS DE- 
FENSES WERE” 

PRINT "PRIMARILY DESIGNED TO FEND OFF 
LARGE-SCALE CAPITAL” 

PRINT "SPACE-SHIP ASSAULTS. A SMALL, ONE-OR 
TWO-MAN” 

PRINT “X-WING FIGHTER SHOULD BE ABLE TO 
SLIP THROUGH” 

PRINT “ITS DEFENSIVE SCREENS. YOUR MISSION, 
IS TO DESTROY” 

PRINT “THE DEATH STAR!!! ON ITS SURFACE 
THERE IS A SMALL” 

PRINT “THERMAL EXHAUST PORT. ITS SIZE BE- 
LIES ITS IMPORTANCE” 

PRINT "AS IT APPEARS TO BE AN UNSHIELDED 
SHAFT THAT RUNS” 

PRINT “DIRECTLY INTO THE MAIN REACTOR 
SYSTEM, POWERING” 
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280 


310 


320 


410 
420 
430 
440 
450 
460 
465 
470 


480 
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PRINT "THE DEATH STAR SPACE STATION. SINCE 
THIS SERVES” 

PRINT "AS AN EMERGENCY OUTLET FOR WASTE 
HEAT IN THE” 

PRINT "EVENT OF REACTOR OVERPRODUCTION, 
ITS USEFULNESS' 

PRINT "WOULD BE ELIMINATED BY ENERGY- 
PARTICLE SHIELDING” 

PRINT “А DIRECT HIT WOULD INITIATE А CHAIN 
REACTION THAT” 

PRINT “WOULD DESTROY THE STATION, THUS 
PROTECTING THE” 

PRINT “REPUBLIC” 

PRINT “*******EXECUTIVE COMMANDS 
ARE trer 

PRINT “(1) FIRE HIGH-ENERGY TORPEDO” 

PRINT “(2) FIRE LASER CANNON” 

PRINT “(3) FIRE LASER” 

PRINT “(4) PROPULSION OF X-WING” 

PRINT “THE BATTLE COMPUTER OPTION MAY BE 
USED WITH COMMANDS” 

PRINT “2 AND 3. THE ENERGY TORPEDO IS USED 
TO DESTROY” 

PRINT “THE DEATH STAR WITH, EACH TORPEDO 
EXPENDS 20,000” 

PRINT “UNITS OF ENERGY. THE LASER CANNON 
MAY BE USED” 

PRINT "AGAINST THE SKY FIGHTERS, IT RE- 
QUIRES 5,000 UNITS” 

PRINT "THE LASER USES 1,000 ENERGY UNITS 
PER SHOT AND IT” 

PRINT “IS ALSO USED AGAINST THE SKY FIGHT- 
ERS.” 

PRINT "THE BATTLE COMPUTER REQUIRES 500 
ENERGY UNITS, BUT,” 

PRINT "GUARANTEES А DIRECT HIT ON А SKY 
FIGHTER. TO DESTROY” 

PRINT “A SKY FIGHTER YOU MUST DEPLETE IT OF 
ENERGY.” 

PRINT “MOVING THE X-WING SP А 
PERATIVE AS” ACE CRAFT IS IM 

PRINT "THE ENERGY TORPEDO MU 
WITHIN 1000KM” ”„”„”"" 


PRINT "OF THE DEATH STAR. X-WING PROPUL- 
SION REQUIRES” 

PRINT “1 ENERGY UNIT PER КМ” 

PRIN TOU zott ke tak ak dok ыы ыы ok ok ke) 

PRINT“ GOOD-LUCK ” 

PRINT “MAY THE FORCE BE WITH YOU” 

PRIN [it 44844844 kek ak dele kok eek ke dot dok ak kok kok ok oo ko kek? 

REM X-WING ENERGY AND SKY ENERGY 

LET X1 = 5E05 

LET Т1 = 1604 

LET Т2 = 5804 

ГЕТ Р = 1Е05 

GOSUB 630 

GOSUB 730 

GOSUB 830 

GOSUB 1040 

GOSUB 1500 

GOTO 580 

IF Р > 1E04 THEN 660 

LETL = 1 

GOTO 700 

LET L = 0 

LET Н = (1 + INT(100*RND))/100 

LET Е1 = 5000*H 

GOTO 720 

LET H = (1 + INT(100*RND))/100 

LET Е1 = 1000"H 

RETURN 

IF D » 5E03 THEN 760 

LET K =1 

GOTO 800 

LET K = 0 

LET H = (1 + INT(100*RND))/100 

LET E2 = 8000*H 

GOTO 820 | 

LET Н = (1 + INT(100*RND))/100 

LET E2 = 3000*Н 

RETURN 

IF D < 3E03 THEN 860 

LET ЕЗ = 0 

GOTO 880 

LET Н = (1 = INT(100*RND))/100 

LET ЕЗ = 2E04*H 
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1210 


190 


LET TI = TI — El 

LET T2 = T2 — E2 

IF TI « = 0 THEN 920 

GOTO 950 

LET El = 0 

LET Y = 1 

GOTO 960 

LET Y = 0 

IF T2 < = 0 THEN 980 

GOTO 1010 

LET E2 = 0 

LETZ = 1 

GOTO 1020 

LET Z = € 

LET X1 = X1 - El — Е2- ЕЗ 

RETURN 

PRINT “DISTANCE TO DEATH STAR IS NOW”; 
D; “KM” 

IF Y = 1 THEN 1100 

IF L = 0 THEN 1080 

PRINT “THE SKY FIGHTER HAS FIRED HIS LASER" 

GOTO 1110 

PRINT “THE SKY FIGHTER HAS FIRED HIS LASER 
CANNON” 

GOTO 1110 

PRINT “THE SKY FIGHTER IS OUT OF ACTION!!!” 

IF Z = 1 THEN 1180 

GOTO 1220 

IF K = 0 THEN 1160 

PRINT“THE DARK LORD HAS FIRED HIS HIGH 
ENERGY LASER" 

GOTO 1360 

PRINT “THE SMITH LORD HAS USED A LASER CAN- 
NON ENERGY ВЕАМ” 

GOTO 1360 

PRINT "GARTH RADER HAS EXPENDED ALL HIS 
WEAPON'S ENERGY” 

PRINT "SUPPLY. HE IS CURRENTLY ESCAPING TO 
THE ENDS OF” 

PRINT “THE GALAXY. ***THE FORCE IS WITH 
YOU***” 

GOTO 1360 


1220 
1230 
1240 
1250 


1260 
1270 


1280 
1290 


1300 
1310 


1320 
1330 


1340 
1350 
1360 
1370 
1380 
1390 
1400 


1410 
1415 


1420 
1430 
1440 
1450 
1460 
1470 


1480 


LET С = 1 + (5*RND) 

ON С СОТО 1240, 1270, 1290, 1310, 1330 

PRINT "*CAUTION*GARTH RADER IS THE BEST 
SHOT IN THE” 

PRINT “IMPERIAL FLEET, PLUS HE USES THE BAD 
SIDE OF THE FORCE” 

GOTO 1130 

PRINT "THE DARK LORD IS EXTREMELY 
DANGEROUS!!!” 

СОТО 1130 

PRINT ““CAUTION RADER IS INHUMANLY ACCU- 
RATE CAUTION**” 

GOTO 1130 

PRINT "THE SMITH LORD'S PRECISION IS AWE- 
SOME” 

GOTO 1130 

PRINT "RADER'S ON-BOARD ATTACK COMPUTER 
HAS MATCHED” 

PRINT “YOUR COURSE, HIS WEAPONS ARE 
READY” 

GOTO 1130 

IF D < = 3E03 THEN 1380 

GOTO 1410 

PRINT “***YOU ARE CLOSER THAN 3000KM TO 
THE SPACE STATION” 

PRINT “THE DEATH STAR’S AUTOMATIC DE- 
FENSE NETWORK HAS BEEN” 

PRINT “ACTIVATED. ***USE EXTREME CAU- 
TION***” 

PRINT 

PRINT “YOUR TOTAL ENERGY IS NOW ”;X1;” 

UNITS” 

IF X1 < 2E04 THEN 1140 

GOTO 1490 

PRINT “YOU HAVE DEPLETED YOUR ENERGY 
SUPPLY, THE DEATH” 

PRINT “STAR WILL NOW DESTROY YOUR HOME 
PLANET” 

PRINT “YOU WILL BE A HERO NOWHERE AND RE- 
MEMBERED BY NONE” 

PRINT “*****YOU HAVE MISUSED THE 
FORCE*****” 

GOTO 2690 
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RETURN 

PRINT 

PRINT “WHICH COMMAND DO YOU WISH TO EXE- 
CUTE” 

INPUT B 

ON В СОТО 1540, 1690, 2030, 2320 

IF D < = 1000 THEN 1590 

PRINT “YOU HAVE WASTED A TORPEDO, YOU ARE 
FARTHER” 

PRINT “AWAY THAN 1000KM” 

LET X1 = X1 — 2E04 

GOTO 2680 

LET H = 1 + (NT(100*RND)) 

IF H > = 50 THEN 1640 

PRINT “YOU SHOULD HAVE USED THE FORCE, 
YOU HAVE MISSED" 

LET X1 = X1 — 2E04 

GOTO 2689 

PRINT “THE FORCE WAS WITH YOU, YOU HAVE 
SINGLE-HANDED” 

PRINT “DESTROYED THE DEATH STAR. YOU 
HAVE SAVED THE” 

PRINT “REPUBLIC AND PRINCESS LEAH ARGONA 
WILL LOVE” 

PRINT “YOU FOREVER.” 

GOTO 2740 

PRINT “THE CANNON IS READY, DO YOU WISH 
COMPUTER ASSISTANCE” 

PRINT “ENTER EITHER YES OR NO” 

INPUT C$ 

IF C$ = “YES” THEN 1820 

IF C$ = “NO” THEN 1880 

PRINT “INVALID RESPONSE” 

GOTO 1700 

PRINT “WHICH FIGHTER THE SKY “S” OR RADER 
«р» 

INPUT C$ 

IF С$ = “Т” THEN 1840 

IF C$ = "V" THEN 1860 

PRINT “WHICH????” 

GOTO 1760 

LET Q = 5000 

GOTO 1760 


LET T1- T1- Q 

GOTO 1960 

LET Т2 = T2 9 

GOTO 1960 

PRINT "DO YOU WISH TO FIRE ON GARTH RADER 
(R) OR" 

PRINT "ON THE SKY FIGHTER (S)" 

INPUT C$ 

LET Q = 5000*((1 + INT(100*RND))/100) 

IF C$ — "S" THEN 1980 

IF C$ — "R" THEN 2000 

PRINT "WHICH ENEMY????" 

GOTO 1880 

LET X1 = X1 — 5500 

GOTO 2660 

LET T1- T1- Q 

GOTO 2010 

LET T2 = T2 — Q 

LET X1 = X1 — 5000 

GOTO 2660 | 

PRINT "YOU HAVE DECIDED ON USING THE 
LASER" 

PRINT "DO YOU WISH COMPUTER ASSISTANCE, 
YES OR NO" 

INPUT C$ 

IF C$ — "YES" THEN 2100 

IF C$ = "NO" THEN 2120 

PRINT "THE COMPUTER RESPONSES ONLY TO A 
YES OR A NO" 

GOTO 2040 

LET J=1 

GOTO 2180 

LET J=0 

PRINT “WHICH FIGHTER THE SKY (S) OR RADER 
(R)” 

PRINT “DO YOU WISH TO FIRE ON” 

INPUT C$ 

IF J = 1 THEN 2190 

LET Q = 1000*((1 + INT(100*RND))/100) 

GOTO 2200 

LET Q = 1000 

IF C$ = “S” THEN 2240 

IF C$ = “К” THEN 2260 
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жалы шы NE ets 


GOTO 2130 

LET TI =T1 — Q 

GOTO 2270 

LET T2 = T2 — Q 

IF J = 1 THEN 2300 

LET X1 = X1 — 1000 

GOTO 2660 

LET X1 = X1 — 1500 

GOTO 2660 

PRINT “HOW MANY UNITS OF ENERGY DO YOU 
WISH T0 FEED TO” 

PRINT “THE HYPER-ATOMIC DRIVE UNIT, (1 
UNIT/1KM)" 

PRINT ***CAUTION** TOO MUCH ENERGY WILL 
OVER-HEAT" 

PRINT *THE REACTOR, INPUT NO MORE THAN 
22,500 UNITS" 

PRINT *AT ANY ONE TIME" 

INPUT F 

PRINT *IN WHICH DIRECTION, AWAY (A) OR TO- 
WARDS (T)” 

PRINT "THE DEATH STAR" 

INPUT C$ 

IF F > 2.25E04 THEN 2470 

IF C$ = “А” THEN 2500 

IF C$ = “Т” THEN 2620 

PRINT “DON'T YOU KNOW WHICH DIRECTION YOU 
WANT TO GO TO" 

GOTO 2330 

REM OVERHEATING THE REACTOR 

PRINT “YOU HAVE WASTED ”;F;“ UNITS OF 
ENERCY" 

PRINT *THE REACTOR IS CRITICALLY OVER- 
HEATED" 

GOTO 2640 

LETD=D+F 

IF D > = 1.5E05 THEN 2540 

GOTO 2640 

REM WENT TOO FAR 

PRINT “WHERE ARE YOU GOING?? THE BATTLE IS 
IN THE” 

PRINT “OPPOSITE DIRECTION” 


2560 
2570 


2580 
2590 


2600 
2610 
2620 
2630 
2640 
2650 
2660 


2670 


2680 
2690 


2700 
2710 


2720 


2730 
2740 


2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 


2830 
2840 
2850 
2860 


2870 


GOTO 2640 

PRINT "YOU HAVE SMASHED INTO THE DARK 
STAR reka 

PRINT "WHERE DID YOU LEARN TO FLY, GARTH 
RADER” 

PRINT “IS LAUGHING AT YOU;; OH!! BY THE 
WAY...” 

PRINT "******* YOU HAVE LOST ******” 

GOTO 2690 

LETD=D-F 

IF D < = 0 THEN 2570 

LET X1 = X1 L F 

GOTO 2680 | 

PRINT "THE SKY FIGHTER'S ENERGY IS NOW 
TL UNITS” 

PRINT "THE DARK LORD'S ENERGY IS" ;T2;” 
UNITS” 

RETURN 

PRINT “YOU ARE AN INCOMPETENT GOOD 
KNIGHT” 

PRINT “YOU HAVE DISGRACED THE MEMORY OF” 

PRINT “OBI- SAN COYOTE! WHOSE SIDE ARE YOU 
ON??” 

PRINT "WHY DON'T YOU PROVE YOUR WORTH 
AND TRY AGAIN” 

GOTO 2760 

PRINT “OBI- SAN COYOTE WOULD BE PROUD OF 
YOU” 

PRINT “YOU ARE INDEED A **GOOD KNIGHT""” 

PRINT 

PRINT "TO PLAY SPACE WARS AGAIN TYPE GO, IF” 

PRINT "NOT TYPE NO” 

INPUT L$ 

IF L$ = "GO" THEN 2840 

IF L$ = "NO" THEN 2860 

PRINT “DO YOU WANT TO STOP OR PLAY 


GOTO 2770 

PRINT 

GOTO 50 

PRINT "SPACE WARS SAY GOOD-BYE AND MAY 
THE FORCE BE WITH YOU” 

END 
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STRAIGHT LINE DEPREGIATION 


This program computes the value depreciat'on of an item by the 
straight line method. 


FORMULA 


Xc = last current value, D = depreciation per year, 
X1 = new current value 
Xc- D = X: 


EXAMPLE 
ORIGINAL VALUE = 
2 


10000 
LIFETIME IN YEARS = 
? 


12 
YEARLY DEPRECIATION = 833.333 
YEAR VALUE 
9166.66 
8333.33 
7500. 


333.333 


i Ë = роо Ссл т о № 
> 
pi 
с> 
ფა 
თა 
ფა 


akt kok кок ak ak kk кокк кк ккк КК 
TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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STRAIGHT LINE DEPRECIATION 


PROMPT + INPUT 
LIFETIME + VALUE 


CALCULATE 
YEARLY 
DEPRECIATION 


OUTPUT 
DEPRECIATION 


< 
т 
> 
2 


CALCULATE 
VALUE AT END 
OF YEAR X 


1E .Fi А+О 


Y 


z 
О 


OUTPUT 
YEAR VALUE 


YES 


{ 


NO 
OUTPUT CONTINU 
AGE + 


©, 

= 
2 

! S> 

SO 


YE 


თი 
= 
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STRAIGHT LINE DEPREGIATION 


10 
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REM THIS PROGRAM COMPUTES VALUE DEPRE- 
CIATION 

REM BY THE STRAIGHT LINE METHOD 

PRINT "ORIGINAL VALUE =”; 

INPUT А 

PRINT “LIFETIME IN YEARS =”; 

INPUT B 

LET C = A/B 

PRINT “YEARLY DEPRECIATION = ”;C 

PRINT 

PRINT “YEAR”, “VALUE” 

LET X = 0) 

LETX=X+1 

LETA=A-C 

IF A < 0 THEN 160 

GOTO 170 

LET A = 0 

PRINT X,A 

IF X < B THEN 120 

PRINT t (kok ae sk kok ne ale E kok XX XL kok k Ll d 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 240 

STOP 

PRINT 

GOTO 30 

END 


VECTOR CROSS PRODUCT 


If A(A1, А», Аз) and B(Bi, B2, B3) are two three-dimensional vectors 
then the cross product of A and B is denoted by AxB. The program 
responds with a solution represented by X,Y and Z. 


FORMULAE 


4243 4143 4142 


AXB = 


8283 8183 8182 


, , 


= (4283 — AsB;, 4381 ima 4183, 4182 = A3B 1) 


EXAMPLES 
ENTER 1ST VECTOR (A1,A2,A3) 
? 


10,11,10 

ENTER 2ND VECTOR (B1,B2,B3) 

2 

4,3,4 

VECTOR CROSS PRODUCT 

X= М Y=0 Z=- 14 
++++++++++++++++++++++++++ 


TYPE 1 TO CONTINUE, 0 TO STOP 
? 


1 

ENTER 1ST VECTOR (AL, A2, A3) 
? 

12,23,34 

ENTER 2ND VECTOR (B1,B2,B3) 
? 


23,41,67 

VECTOR CROSS PRODUCT 

X217 Ү--22 Z=- 37 
++++++++++++++++++++++++++++++++ 
ТҮРЕ 1 TO CONTINUE, 0 TO STOP 

2 


0 
“END 
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УЕСТОВ CROSS PRODUCT 


| PROMPT + INPUT 
Ss 


CALCULATE 
VECTOR CROSS 
ooo 


| BI 
CROSS PRODUCT 


pl i Mie а 
+ CONTINUE INPUT 


— 


| NO 


200 


VECTOR CROSS PRODUCT 


10 


REM THIS PRODUCT COMPUTES THE CROSS PRO- 
DUCT 

REM OF TWO VECTORS 

PRINT “ENTER 1ST VECTOR (A1,A2,A3)" 

INPUT A], A2,A3 

PRINT “ENTER 2ND VECTOR (Bil, B2, B3) 

INPUT B1,B2,B3 

LET X = (A2*B3) — (A3*B2) 

LET Y = (A3*B1) — (A1*B3) 

LET 7 = (A1*B2) — (A2*B1) 

PRINT "VECTOR CROSS PRODUCT” 

PRINT "X = '5X,"Y = "ү, = ”:7 

PRINT “+++++++++++++++++++” 

PRINT “TYPE 1 TO CONTINUE, 0 TO STOP” 

INPUT L 

IF L = 1 THEN 170 

STOP 

PRINT 

GOTO 30 

END 
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VECTOR DOT PRODUCT AND NORM 


This program computes the vector dot product, also known as the 
scalar product and the norms of two vectors. 


FORMULAE 
А = (A1,A2,A3) and В (81,B2,B3) are two vectors 


NORM of A is denoted [Å] and B is denoted (В| 
A] =V/4 +A? = A? 
В| ="B + Вг + Вз 


- —> 


А «B =А. В. + AB: + AB: 


EXAMPLE 
ENTER FIRST VECTOR (AL, A2,A3) 
? 


2,3,4 
ENTER SECOND VECTOR (B1,B2,B3) 
? 


5,6,7 

DOT PRODUCT = 56 

NORM OF 1ST VECTOR = 5.38516 
NORM OF 2ND VECTOR = 10.4880 
SIO AAAI RRS 

TYPE 1 TO CONTINUE, 0 TO STOP 
? 

0 

*END 
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DOT PRODUCT AND NORM 


( PROMPT + INPUT 
VECTORS 


CALCULATE 
NORM OF 
VECTORS 


CALCULATE 
DOT 
PRODUCT 


OUTPUT 


OUTPUT 
CONTINUE 
COMMAND + INPUT 


i 
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—= Aa 


VECTOR DOT PRODUCT AND NORM 


10 REM THIS PROGRAM COMPUTES DOT PRODUCT 
AND 
20 REM THE NORMS OF TWO VECTORS 
30 PRINT “ENTER 1ST VECTOR (A1,A2,A3)" 
40 INPUT AL, A2,A3 
50 PRINT "ENTER 2ND VECTOR (B1,B2,B3)” 
60 INPUT B1,B2,B3 
70 КЕМ CALCULATE NORM OF A VECTOR 
80 LET X = SQR((A142) + (A242) + (A312)) 
90 REM CALCULATE NORM OF B VECTOR 
100 LET Y = SQR(B142) + (8212) + (B3*2)) 
110 REM CALCULATE DOT PRODUCT 
120 LET Z = (A1*B1) + (A2*B2) + (A3*B3) 
130 PRINT “DOT PRODUCT = ";Z 
140 — PRINT “NORM OF IST VECTOR = ";X 
150 PRINT “NORM OF 2ND VECTOR = ”; Y 


160 PRINT “енен кк кк к ж», 
170 ` PRINT "TYPE 1 TO CONTINUE, 0 TO STOP" 
180 INPUT L 

190 IF L = 1 THEN 210 

200 STOP 

210 PRINT 

220 GOTO 30 

230 END 
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SY PIRA ПАП 
ШАШЫНА МБ & GAMES 
ІШ ШІ» 


From arithmetic progression to statistical permutations to one- 
anm bandits, here are 57 practical, useful and fun programs designed 
to help you really put your minicomputer to work! 


Game programs include blackjack, one-arm bandit, craps, and 
two space war games. Math and accounting programs include com- 
pounding, straight-line depreciation, statistical permutations, instant 
derivatives, and solutions for integrals—even a whole section of 
geometric solutions for modern-day Euclids. For history buffs, there is 
a Day-of-the-Week program for any date back through 1753. 

Each program begins with an introductory paragraph describing 
its capabilities, and continues with a typical program sequence and 
flowchart. All programs will run on any floating point BASIC. 

The author is а veteran computer programmer with extensive 
experience in developing software in various languages for а wide 
range of hardware systems. 


Radio Shaek 
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